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Editoria 


Ça ne va pas très bien, en ce moment, dans le petit monde de la micro-informatique. 
Pratiquement tous les constructeurs d'ordinateurs - familiaux ou non - licencient une partie, 
souvant loin d'être négligeable, de leur personnel. Même IBM, qui n'est pas la plus petite 
société dans ce domaine, n'échappe pas à cette vague de morosité. La presse spécialisée souffre 
de cet état de fait, puisque les contrats de publicité se font plus rares, et il faut savoir que les 
revenus de pratiquement toutes les revues proviennent, pour la plus grande part, de la pub. Dans 
ce contexte, il est problable que quelques publications spécialisées en micro-informatique seront 
contraintes à cesser leurs activités. 


Heureusement, la politique commerciale et éditoriale des Editions MEV fait que "99 Magazine" 
n'a pas besoin de publicité pour vivre ; donc, ça va plutôt bien pour nous, même si ce numéro 
paraît très en retard, cela à cause de problèmes techniques et de personnel. Nous vous prions de 
bien vouloir nous excuser pour ce décalage, mais je pense que vous serez d'accord avec moi, il 
vaut mieux un "99" en retard que pas de "99" du tout. Le fait que "99 Magazine” marche bien 
nous pose quelques problèmes d'intendance ; en effet, nous nous sommes trouvés en rupture de 
stock pour quelques disquettes et cassettes, en particulier la 6, mais nous espérons que tout sera 
rentré dans l'ordre lorsque vous lirez ces lignes. 


Après ces bonnes paroles, voyons un peu ce que contient ce numéro. Certains d'entre-vous 
nous ont reproché de ne pas avoir assez mis de programmes en Basic TI dans le numéro 8 ; vous 
trouverez donc cette fois trois programmes écrits en ce langage ("Starline”, "Ticrok" et 
"Pentaxe") par Georges Goument. Vous saurez beaucoup de choses sur les transferts 
d'informations entre le TI-99/4A et un magnétophone, après avoir lu l'article de Gérard 
Baroni et Jean Marin, les deux "piliers" du Club Ticazur, dont il n'est pas inutile de rappeler 
les coordonnées : Club Ticazur - Gérard Baroni - Villa Héléna - Chemin des Bas-Campons - 
06480 La colle-sur-Loup - Tél. : 32.63.16. 


Gérard Santraille vous communique un maximum d'informations sur les pointeurs et 
variables dynamiques en Pascal, alors que Denise Amrouche vous indique un moyen simple 
et efficace pour faire cohabiter musique et programmes Basic. Henri Mathian vous présente le 
module "Apesoft", qui est un Basic étendu à vocation graphique distribué en France par "la règle 
à calcul", qui distribue aussi depuis peu des lecteurs et contrôleurs de disquettes pour T1-99. "99 
Magazine" vous présente aussi un tout nouveau module - il n'est pas encore commercialisé - le 
module "Maximem 48Ko0". 


Outre les rubriques habituelles "Courrier des Lecteurs”, par Alexandre Duback, et "Petites 
annonces" vous trouverez deux programmes de gestion de fichiers écrits par Michel Teyssou, 
l'un écrit en assembleur, l'autre en Basic étendu. La juxtaposition de deux programmes 
identiques, mais écrits en deux langages diamétralement opposés présente un intérêt 


pédagogique indéniable. 


"99 Magazine" sera à la boutique Sicob (Porte Maillot - Stand M279), nous vous-y attendrons ! 


Hervé Thiriez 


Rédacteur en chef - Directeur de la publication : Hervé Thiriez. Rédaction : Jean-Luc Bazanegue, Gérard 
Santraile. Dessins : Laurent Bidot. Ont collaboré à ce numéro : Denise Amrouche, Gérard Baroni, Jean-Luc 
Bazanegue, Alexandre Duback, Georges Goument, Jean Marin, Henri Mathian, Gérard Santraille, Michel Teyssou. 


Editions MEV - 64/70, rue des Chantiers - 78000 Versailles - Tél. : (3) 951.24.43. 
Publicité : consultez les Editions MEV. 
Impression : Imprimerie du Lion - Repro-Versailles - 25, rue Michel Lecomte - 75003 Paris - Tél. : 272.96.19. 
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Pentaxe 


Georges Goument 


e jeu de tactique est 

adapté du morpion 

Coréen. Nous vous 

proposons quelques 
commentaires, afin de compléter 
les règles du jeu affichées par le 
programme. 


+ Il est possible de prendre 
plusieurs paires de pions 
adverses en une seule fois. A 
vous de jouer afin d'obtenir 
cette possibilité. 


Après une prise, l'adversaire 
peut rejouer aux mêmes 
emplacements sans risques, 
contrant ainsi le jeu de celui qui 
vient de prendre. 


Pour réaliser un alignement, 
l'emplacement du dernier pion 
posé n'a aucune importance ; le 
programme prend en compte 
les cinq positions possibles. 


Ne vous emmêlez pas les touches 
en tapant les lignes 339 à 407 ; le 
déroulement du jeu serait 
probablement compromis. 


Il ne vous reste qu'à trouver un 
adversaire de valeur pour passer 
quelques bons moments. 


Déroulement du 
programme 


27 à 80 : règles du jeu. 
81 à 104 : redéfinition des 
caractères. 

105 à 108 : variables P1/P2 = 
prises pions adverses ; G1/G2 
= parties gagnées. 

109 à 151 : dessin du jeu. 

152 à 173 : changement de 
joueur. Variables A et B - 
pions selon joueur, change la 
couleur d'affichage selon J=0 
ou J=1. 


174 à 176 : affiche la première 
coordonnée (ligne=Y) côté 
gauche ou droit. 

177 à 284 : attente d'une 

touche ; A à Q = coordonnées 
du pion à jouer. La touche zéro 
annule la coordonnée Y. La 
touche <ENTER> annule la 


partie. 
285 - 286 : affiche la seconde 
coordonnée (colonne=X). 


287 à 300 : vérifie que la 
position jouée est libre. Sert 
également pour la touche "O0" 
(AN=1). 

301 à 305 : le pion est posé sur 
le jeu ; permute J pour le tour 
suivant. 

306 à 338 : contrôle dans les 
huit directions possibles, la 
présence de pions sur quatre 
intersections maximum. 

339 à 407 : selon positions et 
couleurs des pions détectés, 
détermine : 


soit une prise (avec retour pour 
suite du programme) ; 

soit un alignement (partie 
gagnée, envoi ligne 422) ; 

soit un renvoi ligne 152 pour 
continuer la partie. 


408 à 421 : prise d'une paire de 
pions. Affichage selon le 
joueur à droite ou à gauche 
face à P. 

422 à 465 : alignement réalisé ; 
texte vert ou rouge selon le 
vainqueur. Affichage identique 
prise face à G. 

466 à 471: annulation d'une 
partie. 

472 à 478 : nouvelle partie ou 
arrêt du jeu. 

479 à 487 : résultat final (10 
parties maximum). 

488 à 500 : tirage au sort du 
premier joueur. Ensuite, donne 
le jeu au perdant. 


Programme 
Pentaxe 


Basic TI 


KKAKKKkKKRKKKRÉRRÉAEXÉ 
x 


PENTAXE 
programme 
en 
Basic TI 
copyright 
99 Magazine 


& 


G. Goument 


OÙ OO OÙ OÙ OÙ OÙ OÙ OÙ OÙ ù + + 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
LS 


KkKKKKKKKAKÉAKXÉÉX 


CALL CLEAR 

FOR I=1 TO 12 

CALL COLOR(I,1,1) 
NEXT I 

CALL CHAR(33,"FFFFF 
FFFFFFFFFFF") 

PRINT TAB(9);:"*X4xxx% 
XkkXKkXM: TAB(9) ;"x! 


* !PENTAXE! *":TAB (9) 

US BRAS NE LS 

PRINT TAB(9);:"#xx%xxx%x 

*kkkxXN::TAB(11);") 

eu de"::TAB(10);"ta 

ctique'" ::TAB(9) ; "2 
joueurs" 

PRINT "<c> g goumen 

t decembre 1984":::: 

CALL COLOR(1,12,1) 

CALL SCREEN(8) 

CALL COLOR(2,10,14) 

FOR I=3 TO 12 

CALL COLOR(I,13,1) 

NEXT I 

FOR I=5 TO 8 

CALL COLOR(I,7,12) 

NEXT I 

RESTORE 948 

FOR I=1 TO 53 

READ D,N 
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CALL SOUND (-50*D,N* 
6,8,N*4,8,N/2 ,5) 
DATA 2,523,2,587,2, 
587,2,587,2, 597,2, 
523,4,622,2,587,2,5 
23,2,659,2,784,2,10 
47,4,1047,2,1047,2, 
880 

DATA 2,784,2,698,2, 
1047,2,698,2,659,2, 
659,2,587,2,698,2,6 
59,4,587,2,587,2, 52 
3,2,587,2,659,2,784 
DATA 2,784,2,659,4, 
784,2,784,2, 698,2, 
440,2,440,2,349,3,4 
40,2,440,2,262,2,29 
4,2330,2,392,2330 
DATA 4,392,2,392,2, 
349,2,349,2, 220,2, 
220,4,349,6,220 
NEXT I 

CALL CLEAR 

FOR I=5 TO 8 

CALL COLOR(I,6,1) 
NEXT I 

CALL COLOR(2,13,1) 
PRINT " PRESENTA 
TION DU JEU":" 


:::"plateau de jeu 


forme de 289 inters 
ections.":: 

PRINT " chacun des 
joueurs disposede 
pions verts ou roug 
es."::" le jeu con 

siste a placer 5" 
PRINT "de ces pions 
sur une ligne."::" 
cet alignement 
peut etrehorizontal 
, vertical ou bien" 
PRINT "en diagonale 
."s:s:"avec la prise 
de 5 paires depions 
adverses la partie 
estegalement gagne 
Gore "es 
GOSUB 72 
PRINT "choisissez v 
otre couleur au deb 
ut de la partie.":: 
“l'ordinateur desig 
nera celle" 
PRINT “qui doit com 
mencer en posantle 
premier pion au cen 
tre duplateau de je 
u. "3 
PRINT " pour toute 


:):) MAGAZINE n°9 


nouvelle partiela 
couleur perdante jo 
ue en premier." 
GOSUB 72 

PRINT " PLACEMEN 
T DES PIONS":" 


f:::"tapez deux let 

tres face aux" 
PRINT "intersection 
s desirees."::"lere 
lettre --> LIGNE": 
:"2eme lettre --> C 
OLONNE" : : 

PRINT "touche ENTER 
pour annuler lapar 
tie."::"un appui su 
r ZERO annule la co 
oïdonnee de la lign 
e:" 22: 

GOSUB 72 

GOTO 81 

CALL HCHAR(24,28,945 
2) 

CALL HCHAR(24,30,62 


) 

CALL HCHAR(24,26,83 
) 

CALL KEY(3,T,S) 
CALL HCHAR(24,26,32 
) 

IF S=0 THEN 74 

IF T<>83 THEN 75 
CALL CLEAR 

RETURN 

DIM H(32) 

RANDOMIZE 

RE=1 

CALL CLEAR 
M$="Veuillez patien 
ter S.V.P”" 

GOSUB 457 

CALL HCHAR(24,3,32, 
28) 

CALL SCREEN (2) 

CALL CHAR(64,"00103 
07F3010") 

CALL CHAR(65, "00080 
CFEOCO8") 

CALL CHAR(66,"00103 
87C1010101") 

FOR I=72 TO 80 

READ A$ 

CALL CHAR(I,A$) 
NEXT I 

DATA FFB3D6E58FB8E8 
D8,FF66BDDBFF1 0101 
0,FFCD6BA7F11D171B, 
B8D8E8BFB0OE8D8B8, 10 
1010FF10101010 

DATA 1D1B17FD0D171B 
1D,D8E8B88FE5D 6B3F 


F,101010FFDBBD66FF, 
1B171DF1A76BCDFF 


98 CALL CHAR(40,"3C7EF 


FFFFFFF7E3C") 


99 CALL CHAR(41,"FFFFF 


FFFFFFFFFFF") 


100 CALL CHAR(88,"3C7E 


FFFFFFFF7E3C") 
CALL CHAR(89,"FFFF 
FFFFFFFFFFFF") 

FOR I=1 TO 12 

CALL COLOR(I,1,1) 
NEXT I 

P1=-48 

P2=48 

G1=-48 

G2=48 

A=97 

FOR I=5 TO 21 

CALL HCHAR(I,6,A) 
CALL HCHAR(I,26,A) 
A=A+1 

NEXT I 

A=97 

FOR I=8 TO 24 

CALL HCHAR(3,I,A) 
CALL HCHAR(23,1I,A) 
A=A+1 

NEXT I 

CALL HCHAR(4,7,72) 
CALL HCHAR(4,8,73, 
17) 

CALL HCHAR(4,25,74 
) 

CALL HCHAR(22,7,78 
) 

CALL HCHAR(22,8,79 
r17) 

CALL HCHAR(22,25,8 
0) 

CALL VCHAR(5,7,75, 
17) 

CALL VCHAR(5,25,77 
17) 

Q=76 

CALL HCHAR(4,3,112 
) 

CALL HCHAR(4,29,11 
2) 

CALL HCHAR(8,3,103 
) 

CALL HCHAR(8,29,10 
3) 

CALL HCHAR(6,3,P1) 
CALL HCHAR(6,29,P2 
) 

CALL HCHAR(10,3,G1 
) 

CALL HCHAR(10,29,G 
2) 

FOR I=8 TO 24 





VCHAR(5,1,0Q,1 


I 
COLOR(1,2,2) 
COLOR (2,13,15 


COLOR(3,8,1) 
COLOR(4,8,1) 
COLOR(6,5,15) 
COLOR(7,5,15) 
COLOR(8,9,15) 

FOR I=9 TO 11 

CALL COLOR(I,12,1) 

NEXT I 

GOTO 488 

IF J=1 THEN 161 

M=65 

Z=5 

A=40 

B=88 

CO=3 

CALL HCHAR(2,28,32 

12) 

CALL HCHAR(2,3,41, 

2) 

GOTO 168 


HCHAR(2,3,32, 


HCHAR(2,28,89 


COLOR (5,C0,16 


SOUND (3,1966, 


SOUND (10,1949 


LIU 
HCHAR(Y,2,M) 
SOUND (1,770,1 


KEY (3,T,S) 
IF S=0 THEN 177 
IF T<>48 THEN 182 
AN=1 
GOTO 288 
IF T<>13 THEN 184 
GOTO 466 
IF T<>65 THEN 190 
IF C=1 THEN 188 
Y=5 
GOTO 174 
X=8 
GOTO 285 
IF T<>66 THEN 196 


IF C=1 THEN 194 
Y=6 

GOTO 174 

X=9 

GOTO 285 

IF T<>67 THEN 202 
IF C=1 THEN 200 
Y=7 

GOTO. 174 

X=10 

GOTO 285 

IF T<>68 THEN 208 
IF C=1 THEN 206 
Y=8 

GOTO 174 

X=11 

GOTO 285 

IF T<>69 THEN 214 
IF C=1 THEN 212 
Y=9 

GOTO 174 

X=12 

GOTO 285 

IF T<>70 THEN 220 
IF C=1 THEN 218 
Y=10 

GOTO 174 

X=13 

GOTO 285 

IF T<>71 THEN 226 
IF C=1 THEN 224 
Y=11 

GOTO 174 

X=14 

GOTO 285 

IF T<>72 THEN 232 
IF C=1 THEN 230 
Y=12 

GOTO 174 

X=15 

GOTO 285 

IF T<>73 THEN 238 
IF C=1 THEN 236 
Y=13 

GOTO 174 

X=16 

GOTO 285 

IF T<>74 THEN 244 
IF C=1 THEN 242 
Y=14 

GOTO 174 

X=17 

GOTO 285 

IF T<>75 THEN 250 
IF C=1 THEN 248 
Y=15 

GOTO 174 

X=18 

GOTO 285 

IF T<>76 THEN 256 
IF C=1 THEN 254 
Y=16 


GOTO 174 

X=19 

GOTO 285 

IF T<>77 THEN 262 
IF C=1 THEN 260 
Y=17 

GOTO 174 

X=20 

GOTO 285 

IF T<>78 THEN 268 
IF C=1 THEN 266 
Y=18 

GOTO 174 

X=21 

GOTO 285 

IF T<>79 THEN 274 
IF C=1 THEN 272 
Y=19 

GOTO 174 

X=22 

GOTO 285 

IF T<>80 THEN 280 
IF C=1 THEN 278 
Y=20 

GOTO 174 

X=23 

GOTO 285 

IF T<>81 THEN 177 
IF C=1 THEN 284 
Y=21 

GOTO 174 

X=24 

CALL HCHAR(24,X,66 
) 

C=0 

CALL SOUND(1,770,1 
0) 

CALL HCHAR(Y,2Z,32) 
IF AN=1 THEN 295 
CALL HCHAR(24,X, 32 
) 

CALL GCHAR(Y,X,F) 
IF F=40 THEN 295 
IF F=88 THEN 295 
GOTO 301 

FOR I=1 TO 5 

CALL SOUND(10,110, 
0) 

NEXT I 

AN=0 

C=0 

GOTO 177 

CALL HCHAR(Y,X,A) 
IF J=1 THEN 305 
J=1 

GOTO 306 

J=0 

CALL GCHAR(Y-1,X-1 
H1) 

CALL GCHAR(Y-2,X-2 
 H2) 

CALL GCHAR(Y-3,X-3 
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GCHAR(Y-4,X-4 
GCHAR(Y-1,X,H 


GCHAR(Y-2,X,H 


GCHAR(Y-3,X,H 


GCHAR(Y-4,X,H 
GCHAR(Y-1,X+1 
GCHAR(Y-2,X+2 


CALL GCHAR(Y-3,X+3 
H11) 

CALL GCHAR(Y-4,X+4 
 H12) 

CALL GCHAR(Y,X+1,H 
13) 

CALL GCHAR(Y,X+2,H 
14) 

CALL GCHAR(Y,X+3,H 
15} 

CALL GCHAR(Y,X+4,H 
16) 

IF Y>20 THEN 335 
CALL GCHAR(Y+1,X+1 
H17) 

CALL GCHAR(Y+2,X+2 
, H18) 

CALL GCHAR(Y+3,X+3 
rH19) 

CALL GCHAR(Y+4,X+4 
, H20) 

CALL GCHAR(Y+1,X,H 
21) 

CALL GCHAR(Y+2,X,H 
22) 

CALL GCHAR(Y+3,X,H 
23} 

CALL GCHAR(Y+4,X,H 
24) 

CALL GCHAR(Y+1,X-1 
H25) 

CALL GCHAR(Y+2,X-2 
 H26) 

CALL GCHAR(Y+3,X-3 
rH27) 

CALL GCHAR(Y+4,X-4 
 H28) 

CALL GCHAR(Y,X-1,H 
29) 

CALL GCHAR(Y,X-2,H 
30) 

CALL GCHAR(Y,X-3,H 
31) 

CALL GCHAR(Y,X-4,H 
32) 

IF (H1<>B)+(H2<>B) 
+(H3<>A) THEN 345 
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IF (H1=A) * (H2=A) * ( 
H3=A) * (H4=A) THEN 
422 

IF (H3=A) * (H2=A) * ( 
H1=A) * (H17=A) THEN 
422 

IF (H2=A) * (H1=A) * ( 

H17=A) * (H18=A) THE 

N 422 

IF (H1=A) * (H17=A) * 
(H18=A) * (H19= A)TH 

EN 422 

IF (H5<>B)+(H6<>B) 

+(H7<>A) THEN 355 

D=Y-1 

E=X 

F=Y-2 

G=X 

GOSUB 408 

IF (H5=A) * (H6=A) * ( 

H7=A) * (H8=A) THEN 

422 

IF (H7=A) * (H6=A) * ( 

H5=A) * (H21=A) THEN 
422 

IF (H6=A) * (H5=A) * ( 

H21=A) * (H22=A) THE 

N 422 

IF (H5=A) * (H21=A) * 
(H22=A) * (H23= A)TH 

EN 422 

IF (H9<>B)+(H10<>B 
)+(H11<>A) THEN 365 

D=Y-1 

E=X+1 

F=Y-2 

G=X+2 

GOSUB 408 

IF (H9=A) * (H10=A) * 
(H11=A) * (H12= A)TH 

EN 422 

IF (H11=A)*(H10=A) 
* (H9=A) * (H25= A)TH 

EN 422 

IF (H10=A) * (H9=A) * 
(H25=A) * (H26= A)TH 

EN 422 

IF (H9=A) * (H25=A) * 
(H26=A) * (H27= A)TH 

EN 422 

IF (H13<>B)+(H14<> 

B)+(H15<>A) THEN 3 

75 ; 

D=Y 

E=X+1 

F=Y 

G=X+2 


GOSUB 408 

IF (H13=A)*(H14=A) 
* (H15=A) * (H16= A)T 
HEN 422 

IF (H15=A)*(H14=A) 
* (H13=A) * (H29= A)T 
HEN 422 

IF (H14=A)*(H13=A) 
* (H29=A) * (H30= A)T 
HEN 422 

IF (H13=A)*(H29=A) 
* (H30=A) * (H31= A)T 
HEN 422 

IF (H17<>B)+(H18<> 
B)+(H19<>A) THEN 3 
85 

D=Y+1 

E=X+1 

F=Y+2 

G=X+2 

GOSUB 408 

IF (H17=A)*(H18=A) 
* (H19=A) * (H20 =A)T 
HEN 422 

IF (H21<>B)+(H22<> 
B)+(H23<>A) THEN 3 
92 

D=Y+1 

E=X 

F=Y+2 

G=X 

GOSUB 408 

IF (H21=A) * (H22=A) 
* (H23=A) * (H24 =A)T 
HEN 422 

IF (H25<>B)+(H26<> 
B)+(H27<>A) THEN 3 
99 

D=Y+1 

E=X-1 

F=Y+2 

G=X-2 

GOSUB 408 

IF (H25=A) *(H26=A) 
* (H27=A) * (H28 =A)T 
HEN 422 

IF (H29<>B)+(H30<> 
B)+(H31<>A) THEN 4 
06 


Q "1 tm © 

OSURUR 

a PES 
cn 


2 

GOSUB 408 

IF (H29=A) * (H30=A) 
* (H31=A) * (H32 =A)T 
HEN 422 

GOTO 152 

CALL SOUND(300,-4, 
0) 

CALL HCHAR(F,G,Q) 
CALL HCHAR(D,E,Q) 
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IF J=1 THEN 417 
P2=P2+1 

CALL SOUND(5,1200, 
0) 

CALL HCHAR(6,29,P2 
) 

IF P2=53 THEN 422 
RETURN 

P1=P1+1 

CALL SOUND(5,1200, 
0) 

CALL HCHAR(6,3,P1) 
IF P1=53 THEN 422 
RETURN 

IF J=1 THEN 428 
P$=" rouges " 

Cco=9 

G2=G2+1 

IF G2>57 THEN 479 
GOTO 432 

P$=" verts " 

CO=13 

G1=G1+1 

IF G1>57 THEN 479 
CALL SCREEN(16) 
FOR I=9 TO 12 

CALL COLOR(I,CO,1) 
NEXT I 

FOR REP=1 TO 4 
CALL SCREEN(2) 
CALL SOUND(-50,262 
-10,196:15; 167;20 
) 

CALL SCREEN(5) 
CALL SOUND (-50, 330 
r19,:247,15, 208,20 
) 

CALL SCREEN(9) 
CALL SOUND(-50,247 
110;185;15, 156;,20 
) 

CALL SCREEN(12) 
CALL SOUND(-50,220 
r10,165;15; 139,20 
) 

CALL SCREEN(3) 
CALL SOUND (-50,262 
r10,196,15, 167,29 
) 

CALL SCREEN(15) 
CALL SOUND(-50,294 
:10:220,15,; 185;20 
) 

NEXT REP 

CALL SCREEN (2) 
M$="les"&eP$é"sont 
vainqueurs" 

GOSUB 457 

CALL HCHAR(24,3,32 
28) 

M$="pour rejouer a 
ppuyez sur o" 


GOSUB 457 

GOTO 472 

FOR I=1 TO 4 

CALL SOUND(10,1946 
11) 

NEXT I 

FOR I=1 TO LEN(M$) 
CALL HCHAR(24,2+I, 
ASC(SEGS (M$, I,1)) 


) 

NEXT I 

FOR I=1 TO 100 
NEXT I 

RETURN 

FOR I=1 TO 12 

CALL COLOR(I,10,1) 
NEXT I 

M$="partie annulee 
GOSUB 457 

GOSUB 453 

CALL KEY(3,T,E) 

IF E=0 THEN 472 

IF T<>79 THEN 479 
CALL HCHAR(24,3,32 
28) 

P1=48 

P2=48 


GOTO 134 

CALL CLEAR 

IF G1=G2 THEN 484 
IF G1>G2 THEN 486 
PRINT "les pions r 
ouges gagnent" 
GOTO 487 

PRINT "partie null 
e" 

GOTO 487 

PRINT "les pions v 
erts gagnent" 

END 

IF RE=1 THEN 491 
IF J=1 THEN 496 

IF J=0 THEN 493 
J=INT ((10-1+1) *RND 
} +1 

IF J>5 THEN 496 
J=1 

A=40 

GOTO 498 

J=0 

A=88 

CALL HCHAR(13,16,A 
) 

RE=0 

GOTO 152 
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Pointeurs et variables 





dynamiques en Pascal 





ous avions vu, lors du 

précédent numéro, 

comment structurer des 

données en fichiers. 
Les divers types de fichiers 
manipulables par le PASCAL 
sont très riches et très nombreux, 
mais les tableaux, les articles ou 
les ensembles ont une taille fixée 
de façon définitive lors de 
l'écriture du programme. Avec le 
type pointeur, que nous allons 
examiner aujourd'hui, il est 
possible de construire des 
structures de données internes 
(c'est-à-dire en mémoire, sans 
accès aux divers dispositifs de 
stockage de masse comme les 
lecteurs de disquettes) de taille 
indéterminée. 


L'avantage par rapport au tableau 
est immédiat. Pour pouvoir 
manipuler les éléments d'un 
tableau, il est nécessaire de 
déclarer sa taille au début du 
programme. Si l'on connaît le 
nombre exact de ses éléments on 
ne "gaspille” pas inutilement la 
mémoire (celle du TI est 
précieuse car rare) ; mais dans la 
grande majorité des applications 
on ne sait pas au début de 
l'exécution le nombre d'éléments 
qui seront manipulés. Bien 
souvent, pour s'affranchir de ce 
problème, on “"surdimensionne" 
le tableau réservant ainsi de la 
mémoire non nécessairement 
utilisée. 


Les pointeurs mettent en jeu des 
structures extensibles qui sont 
composées d'éléments créés 
dynamiquement lors de 
l'exécution. Ces éléments ne sont 
pas directement référencés par un 
indice, comme dans un tableau, 
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mais sont désignés (pointés) par 
une variable pointeur. 


Variables statiques 
et variables 
dynamiques 


Une variable statique est déclarée 
dans un programme ou dans une 


procédure de façon univoque. 
Lors de l'exécution le programme 
affecte un emplacement mémoire 
à cette variable (la quantité de 
mémoire utilisée dépend du type 
de cette dernière). Que cette 
variable soit effectivement utilisée 
ou non son emplacement est 
définitif et ne peut par conséquent 
être ré-affecté pour une autre 
grandeur. On ne peut donc pas, à 
l'aide de variables statiques 
définir des structures de taille 
indéterminée. 





Les variables dyna- 
miques sont créées 
en cours d'exécution 
par l'instruction 
new dont nous 
verrons plus loin la 
syntaxe exacte. Il 
n'est pas possible 
lors de l'écriture du 
programme de leur 
donner un nom. Ces 
variables n'apparaîs- 
sent donc dans 
aucune déclaration 
du programme. 












type 
























Variable 
pointeur 


Les variables dyna- 
miques sont dési- 
gnées (pointées) par 








var 






Gérard Santraille 





Programme 1 


PERSONNE = record 


PTPERS 


Pi,P2 : PTPERS; 





des variables (statiques ou 
dynamiques) de type pointeur. Le 
type pointeur n'a de sens que par 
rapport à un type déjà défini. Le 
point commun entre une variable 
pointeur et l'ensemble des 
variables qui peuvent être 
désignées par ce pointeur est le 
type des variables pointées. Une 
variable pointeur ne peut repérer 
que des variables dynamiques de 
même type. 


Relisez bien ce paragraphe, il est 
fondamental. 


La désignation d'un type pointeur 
se fait par le symbole "" suivi 
du type des variables qu'il va 
pointer. 


Ainsi, dans l'exemple suivant : 


Voir programme 1 














nom : string[20)]; 
prenom : string[15]; 
tel : string[15)]; 
adri : string[20)]; 
adr2 : string[20] 
end; 


= PERSONNE 
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PERSONNE est un type article 
quelconque composé de CINQ 
enregistrements (NOM, PRE- 
NOM, TEL, ADRI, ADR?) 
PTPERS est le type des variables 
pointeurs des objets de type 
PERSONNE. 


P1 et P2 représentent des 
variables pointeurs (que nous 
appellerons simplement poin- 
teurs) de type PTPERS. 


Remarques 
+ P1 et P2 ne sont pas 
initialisés par cette déclaration. 


Aucune variable de type 
PERSONNE n'est créée par la 
déclaration de P1 ou P2. 


Lorsque, lors de l'exécution, des 
variables de type PERSONNE 
seront créées, elles pourront être 
manipulées au moyen des 
variables P1 et P2. 


Désignation des 
variables pointées 
Une variable pointée est désignée 
de la même façon que le tampon 


ou la fenêtre de fichier (voir 99 
Magazine numéro 8). 


Programme 2 


relation 
toto 


type 
= record 
nom 


prenom 


case rel 
prof 


perso 


Ainsi, si P1 est un pointeur sur le 
type PERSONNE, P1* est une 
variable (dynamique) de type 
personne. Cette variable ne 
doit en aucun cas être 
déclarée. 

P1” est une variable à part entière 
de type PERSONNE dont on 
peut très classiquement manipuler 
les divers champs selon la 


syntaxe P1®champ 


Pinom représente donc le 
champ nom (de type string[20]) 
de la variable P1 de type 
PERSONNE. 


Opérations sur les 
pointeurs 


Nous avons déjà vu que la 
déclaration P1,P2 : PTPERS 
pour reprendre l'exemple précé- 
dent n'initialisait en aucune façon 
P1 où P2. 

Pour activer un pointeur, on 
utilise l'instruction new (poin- 
teur). 


Ainsi, dans l'exemple suivant : 


type toto = record 


var P : toto; 


begin 


= (prof,perso); 


: String[20]; 
: string[15]; 


: relation of 


: (societe : string[12];position : string[10]); 


: () 





la commande new(P) alloue dans 
la mémoire libre une variable de 
type toto, P pointe sur cette 
variable qui sera désignée par P*. 


Remarque : 


si toto est un type article avec 
variantes comme : 


Voir programme 2 


il convient de déclarer la valeur de 
toutes les variantes lors du new. 
Le type toto possède une 
variante : selon la valeur du 
champ rel l'article comporte deux 
champs supplémentaires (societe 
et position) ou rien du tout. 
Ainsi, new(P,prof) réservera 
en mémoire une variable dynami- 
que de type toto avec la variante 
prof. Notons au passage que la 
taille effectivement réservée 
dépend des variantes sélection- 
nées et n'est pas la plus grande de 
ces dernières comme c'est le cas 
pour une allocation statique (d'où 
perte de place). 


Les opérations possibles sur les 
pointeurs sont au nombre de 
trois. 
+ affectation 
1 - égalité de deux pointeurs de 
même type 
2 - pointeur : = nil; le pointeur 
ne repère alors aucune 
variable. 


+ logique 
3 - on peut tester l'égalité ou 
l'inégalité de deux poin- 
teurs. 


Premier exemple 
d'utilisation 
des 
pointeurs 


supposons que 
l'on dispose d'un 
fichier d'adresses 
recensant toutes 
nos relations. 
Chaque personne 
est définie par un 
article dont l'un 
des champs est 
une variable boo- 
léenne (vraie ou 
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fausse) décrivant une caractéris- 

tique donnée. Si nous désirons, Pr ogramme 3 
pour un traitement ultérieur, program NOPOINT; 

charger en mémoire toutes les type 

personnes dont ce champ est vrai personne = record 

nous disposons de plusieurs 

techniques. 

1 - sans faire appel aux 

pointeurs 

Si personne est le type de 

l'article et caract est le nom de la « inteaer: 

variable booléenne on peut lire ns ge gen, : 

tous les enregistrements du fichier : file of personne; 

fichier et charger dans un tableau tableau : array [1.100] of personne; 
tous les enregistrements dont begin 

caract est VraL , reset(fichier); 


+ l:=0; 
Comme on ne connaît pas à priori dose ee 
le nombre de personnes suscep- while not eof(fichier) do , ” 
tibles d'avoir le champ caract if fichier" .caract then (* sous entendu vrai *) 


vrai, il convient de surdimension- begin 

ner le tableau destinataire. i:=i+1 ; 
tableauli]:=fichier" 
end; 

get(fichier) 

end 


2-En utilisant les pointeurs end 
Au lieu de surdimensionner à 100 
le tableau destinataire des éléments de type 


Le programme pourrait être : 


Voir programme 3 


personne on crée un tableau de pointeurs (ce qui Prog ramme 4 


prend beaucoup moins de place) program POINT: 
Voir programme 4 type 
personne = record 
Attention à ne pas confondre un tampon de 
fichier (fichier) avec une variable pointée 
(tableau[i]"). 


Dans le premier programme chaque personne k 

ayant le champ caract vrai se trouve pointeur = personne; 
physiquement dans tableau. Dans le second, 

tableauli] est un pointeur et tableaul[i]' est la i : integer:; 
variable pointée (de type personne) fichier : file of personne: 


correspondante. tableau  : array [1.100] of pointeur: 


L'espace mémoire ainsi sauvegardé est très begin 

important. En effet, la taille du tableau des reset(fichier); 

pointeurs additionnée à celle des variables F=0; 

dynamiques de type personne est bien inférieure while not eof(fichier) do 

à la taille d'un tableau de type personne. if fichier .caract then 
in 

Remarque Deg ds 

Dans cet exemple nous avons utilisé un ensemble ae ab 7 

de variables statiques (le tableau des pointeurs) new(ta sautie L 

pour repérer un ensemble de variables tableauli]":=fichier 

dynamiques (les personnes ayant le champ caract end; 

vrai). En effet le tableau de pointeurs a été get(fichier) 

déclaré comme tel avant l'exécution du end 

programme. Nous disposons d'autant de end 

pointeurs que de variables pointées. | 
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L'avantage de cette technique est 
que chaque variable dynamique 
est accessible directement 
puisqu'on dispose, pour chacune 
d'entre elles, de son pointeur (qui 
rappelons le est une variable 
statique). Son principal inconvé- 
nient est le même que pour le 
premier exemple : il est nécessaire 
de réserver tout un tableau (celui 
des pointeurs) qui ne sera pas 
nécessairement utilisé en totalité. 
Pour pallier cet inconvénient on 
peut imaginer de pointer les 
variables dynamiques par des 
pointeurs eux-mêmes créés 
dynamiquement. 

Ces ensembles de données où les 
variables pointées se déduisent 
par récurrence s'appellent struc- 
tures chaïînées ou listes. 


Structures de 
données 
récursives. 


On peut imaginer un ensemble de 
variables dynamiques ayant cha- 
cune un champ constitué par un 
pointeur référencant la variable 
suivante. 

On peut schématiser cette 
structure selon 


où P1 est un pointeur qui désigne 
une première variable. Cette 
variable contient un pointeur qui 
permet d'accéder à la seconde, 
etc... 


De telles variables doivent donc 
avoir la stucture suivante : 


type TOTO = record 


Un champ de l'article est donc un 
pointeur du type auquel il 
appartient. 


En PASCAL cette écriture est 
normalement interdite puiqu'un 
article ne peut contenir un champ 
de son propre type. Une 
exception est faite pour les 
pointeurs. On doit d'abord définir 
le type des pointeurs sur les 
éléments de la liste, puis le type 
des éléments de la liste. 

L'écriture correcte est donc: 


type PTTOTO = ATOTO 
TOTO = record 


Une liste récursive simple dont 
chaque élément possède le 
pointeur du suivant n'admet 
qu'un seul mode d'accès. Une 
fois la liste définie on ne peut 
remonter au premier élément 
qu'en parcourant tous les autres. 


program liste; 
type 


end; 
var p, premier 


ptr 
element 
info 
suivant 


Il s'agit d'une gestion d'accès de 
type LIFO (de l'anglais Last In - 
First Out, littéralement dernier 
entré - premier sorti) : on retombe 
sur l'éternel problème de la pile 
d'assiettes. 


Pour mieux comprendre ce qui se 
passe exécutons le petit 
programme suivant: 


Voir programme 5 


Ce programme permet de saisir 
cinq chaînes de caractères au 
clavier, il les stocke dans les 
variables de la liste puis les 
restitue en ordre inverse. 


Analysons les différentes instruc- 
tions. 

Aucun commentaire spécial sur la 
partie déclarative du programme. 
Le type pointeur est bien défini 
avant le type des variables qu'il 


Programme 5 


element 
= record 
: string[10]; 
: ptr 


: DU; 


i : integer; 


texte : string[10]; 
begin 


writeln (‘Creation de 5 elements”); 


premier:=nil; 
for i:=1 to 5 do 


begin 

new(p); 
readin(texte); 
p'.info:=texte 
p'.suivant:=premier; 
premier:=p 


end; 


writeln (‘Lecture des elements); 


p:=premier 
while p<>nil do 


begin 
writeln(p'.info'); 
p:=p".suivant 
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Nil 


Schéma 1 


va désigner. P et PREMIER sont 
des pointeurs (statiques puisque 
déclarés) qui serviront à parcourir 
la liste. SUIVANT est un champ 
de ELEMENT (variable dynami- 
que) qui référencera la variable 
précédente. 


L'instruction premier:=nil; ini- 
tialise le pointeur premier (il ne 
pointe sur rien). L'instruction 
new(p}); crée une variable 
dynamique p* dont les deux 
champs sont définis par 
p'.info:=texte (chaîne lue au 
clavier) et p'.suivant:= 
premier;. La première variable 
dynamique (de type ELEMENT) 
contient donc un pointeur qui ne 
pointe sur rien. On affecte 
ensuite, par premier:=p; , à 
PREMIER la valeur de P qui, 
elle, pointe sur cette première 
variable que l'on vient de définir. 
Lors du second passage dans la 
boucle le champ ‘suivant de la 
seconde variable dynamique 
contiendra donc le pointeur 
référencant la première variable. 
De proche en proche on définit 
pour chacune des variables le 
champ 'suivant' comme référen- 
çant la variable qui la précède. La 
première variable n'ayant pas 
d'antécédent son pointeur vaut 
bien NIL. 


Schématiquement on a : 
Voir schéma 1 


La suite du programme se 
contente de lire, dans le sens 
inverse de la définition, les 
différentes variables et affiche, 
pour chacunes d'entre elles le 
champ ‘info’. 

p:=premier; affecte bien à p la 
valeur du dernier pointeur (cette 
valeur n'est contenue dans 
aucune variable: il s'agit de la 
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position de la cinquième 
variable). writeln(p'.info) 
affiche donc bien le champ info 
de la dernière variable. p:= 
p'.suivant affecte à p la 
position de la quatrième variable 
(qui est donc désormais p'), 
etc... 


Il n'y a aucune limite à la 
complexité des structures que 
l'on peut ainsi construire. Il suffit 
de gérer plusieurs pointeurs dans 
les champs des éléments 
composant une liste. 

Un exemple classique est la liste 
circulaire que l'on pourrait 
schématiser selon: 


Voir schéma 2 


Destruction des 
variables 
dynamiques 


Contrairement aux variables 
statiques, la durée de vie des 
variables dynamiques est 
indépendante de la procédure 
dans laquelle elles ont été créées. 
Pour détruire ces variables il 
convient d'effectuer une 
opération explicite. 

L'instruction dispose(P) désal- 
loue la variable P' : la valeur de 


P devient alors indéfinie. 


Remarques 

+ Si la variable pointée est un 
article avec variante créée par 
new(P,V1,V2) il faut utiliser 
dispose(P,V1,V2) et avec les 
mêmes variantes que lors de sa 
création. 

+ La disparition de tout repère sur 
une variable pointée n'entraîne 
pas la désallocation de cette 
variable. Ainsi la séquence 
new(P); P:=nil; fait que la 
variable P” créée lors du new ne 
sera plus jamais accessible alors 
que l'espace qui lui a été alloué 
encombrera la mémoire jusqu'à la 
fin du programme. 

+ On ne peut exécuter un 
dispose(P) si P est indéfini ou 
possède la valeur NIL. 


Exemple 
d'utilisation 
des pointeurs 


Le petit programme suivant 
illustre l'une des utilisations des 
pointeurs pour la création et la 
mise à jour d'un ensemble de 
données dynamiques. 


Voir programme 6 


Ce programme lit un fichier (texte 
quelconque ou source PASCAL) 
et établit la liste des mots utilisés 
ainsi que leur nombre 
d'apparition. Comme on ne peut 
savoir en début d'exécution le 
nombre de mots différents 
contenus dans le texte, ce 
programme crée au fur et à 
mesure un dictionnaire dynami- 
que répertoriant chaque mot. 


Schéma 2 
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program POINTEURS; 


const 


type 


Imax=15; {taille maxi des identificateurs} 


ptelem = “elem; 

elem = record 
suiv 
id : string[15]; 
n : integer 


end; 
classe = (lettre,chiffre,quote,accolade,autre); 


fichier : string[20]; 
f : file of char; 
categ : array[char] of classe; 
ident : String[15]; 
tete : ptelem; 

C : char; 


{tete de la liste} 
{caractere courant} 


procedure fairecategorie; 


var 


begin 


end; 


: 0.255: 
é : char; 


for i:=0 to 255 do categ[chr(i)]:=autre; 
for c:='A' to 'Z' do categfc]:=lettre; 

for c:='a' to ‘z' do categlc]|:=lettre; 

for c:='0' to ‘9’ do categfc]:=chiffre; 
categl'{‘]:-accolade; 
categl'}]:=accolade; 
categl'""]:=quote 


procedure impliste; 


var 


begin 


p:ptelem; 


page(output); 
writeln(":10,'Impression du dictionnaire’); 
writeln(":10,' # 


writeln; 
p:=tete; 


while p<>nil do 
with p" do 
begin 
writeln(":10,id,) ==>",n:4); 
p:=suiv 
end 


{identificateur courant} 


Programme 6 


Ÿÿ 


Suite du programme 


page suivante 


: ptelem; {pointeur de la variable suivante} 


Les variables dynamiques ainsi 
créées sont des articles sans 
variante (ELEM) ayant chacune 
trois champs: 

*suiv qui est un pointeur 
référencant la variable suivante (il 
s'agit d'une liste où, comme nous 
l'avons vu, chaque variable 
pointe sur sa précédente) 

* id qui est une chaîne de 
caractères représentant le mot à 
mémoriser 

- n de type entier qui représente le 
nombre d'occurences du mot 
dans tout le texte. 


Pour pouvoir traiter les fichiers 
sources écrits en PASCAL ce 
programme ignore les identifica- 
teurs qui apparaissent dans des 
commentaires (c-a-d entre {}). 


Le programme se compose 

- d'une procédure d'initialisation 
(FAIRECATEGORIE) qui définit 
le type de chaque caractère 
rencontré. Notez au passage l'une 
des originalités de Pascal qui 
permet de créer des tableaux dont 
les identificateurs des éléments ne 
sont pas entiers mais de type 
ordinal de base char. CATEG est 
un tableau dont les éléments sont 
de type ‘“classe” (tous les 
composants de ce type sont 
donnés explicitement) et dont 
l'indexation se fait par un 
caractère. 

+ d'une procédure d'impression 
de la liste (du dictionnaire). Cette 
procédure ne pose aucun 
problème particulier : elle est 
parcourue séquentiellement en fin 
de programme et affiche à l'écran 
tous les mots avec le nombre 
d'apparitions. 
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- d'une procédure d'identification 
du mot en cours de lecture 
(LIREIDENT). Cette procédure 
ignore donc les commentaires et 
poursuit la lecture du fichier 
d'entrée jusqu'à la fin du mot 
lorsqu'elle rencontre un caractère. 


* d'une procédure de recherche en 
liste (CHERCHEID). Cette 
procédure parcourt séquentielle- 
ment la liste pour voir si le mot 
courant a déjà été référencé. Si tel 
est le cas, le champ n de la 
variable en question est 
incrémenté de 1, sinon une 
nouvelle variable dynamique est 
créée. Le champ n est de cette 
variable est mis à 1, le champ 
suiv pointe la variable suivante 
(il s'agit chronologiquement de la 
variable précédente). Le pointeur 
de tête de liste (celui qui définit le 
premier élément du dictionnaire) 
référence alors cette nouvelle 
variable. 


En fait, chaque fois que l'on crée 
une variable dynamique elle 
prend la première position de la 
liste et pointe sur l'ancienne 
variable de tête. On peut 
schématiser ce processus par la 
figure suivante. 


Voir schéma 3 


Les structures dynamiques 
chaînées sont très souples et très 
puissantes. Néanmoins l'accès 
direct à un élément donné est 
impossible : il est nécessaire de 
parcourir séquentiellement la liste 
jusqu'à sa rencontre. De même 
l'insertion ou la suppresion d'un 
élément au milieu d'une liste 
n'est pas très aisée puiqu'elle 
suppose la mise à jour des 
pointeurs. 


Si le traitement que l'on doit faire 
sur un ensemble de données est 
global et ne nécessite pas l'accès 
direct ou sélectif à certains 
nombres de ses éléments l'emploi 
d'une liste est un excellent moyen 
pour sauvegarder de la mémoire. 


Plus généralement l'emploi de 
variables dynamiques (pointées 
par des variables statiques ou 
dynamiques) est très intéressant 
dès qu'il s'agit de gérer de gros 
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Programme 6 (suite) 


procedure lireident; 


var 


begin 


k *:0..Imax; 
trouve : boolean; 


trouve:=false:; 


repeat 


case categlc] of 
lettre : begin 
ident:=" 

K:=0; 

repeat 


{15 blancs} 


if K<Imax then 
begin 
K:=k+1; 
ident[k]:=c 
end; 
read(f,c); 
write(c); 
until (categ[c]<>lettre) and (categ[c]<>chiffre); 
trouve:=true; 
end; 
accolade:repeat 
read(f,c); 
write(c); 
until c='}"; 
quote:repeat 


Suite du programme 
page suivante = 


Schéma 3 
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Programme 6 (suite et fin) 


read(f,c); 
write(c); 
until C=""; 


chiffre ,autre:begin 
read(f,c); 

write(c) 

end 


end {fin du case} 


until trouve or eof(f) 
end; 


procedure cherchid; 


var 
pastrouve:boolean; 
p:ptelem:; 


begin 

p:=tete; 

pastrouve:=true; 

while (p<>nil) and pastrouve do 
if p'.id=ident then begin 
pastrouve:=false; 
p'.n:=pAn +1 
end 
else p:=p".suiv; 


if pastrouve then 
begin 
new(p); 
p'.id:=ident; 
Fo EE ES 
p'.suiv:=tete; 
tete:=p; 


) MAGAZINE 


end 
end; 


begin {programme principal) 

page(output); 

fairecategorie; 

tete:=nil; 

{$l-} 
repeat 
write('FICHIER 2 '); 
readin(fichier); 
reset(f,fichier); 
until ioresult=0; 

{$1+} 

read(f,c); 

write(c); 

while not eof(f) do 
begin 
lireident; 
cherchid 

end; 

close(f); 

impliste 

end. 


volumes d'information dont on 
ne connaît pas la taille à priori. La 
plus importante restriction de 
cette technique vient du fait que 
sur le TI aucune vérification de la 
taille de la mémoire disponible 
n'est faite lors de la création 
d'une nouvelle variable. C'est 
donc au programmeur de 
s'assurer (au moyen de 
MEMAVAIL, VARAVAIL, 
VARDISPOSE et VARNEW) de 
l'intégrité de sa partition 


mémoire. 


vous attend à la 
boutique Sicob 
- Porte Maillot - 
au stand M279. 
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Musique et 
Mini-mémoire 


Denise Amrouche 


i vous programmez souvent en Basic TI, vous vous 
êtes certainement heurtés au problème suivant : faire 
entendre de la musique pendant un jeu ou pendant 
l'installation d'un décor. Synchroniser les CALL SOUND et 
les autres instructions nécessite de nombreux tâtonnements. 


Source de la routine “Musique et Mini-mémoire" 
*RESERVER UNE PLACE EN VDP 
*LONGUEUR DE LA LISTE DES SONS DANS >7118 
*PREMIERE ADRESSE DE LA PLACE ALLOUEE DANS RO 
AORG >7FBA 
MOV @>7118,@>830C 
CLR @>837C 


BLWP @>6018 (GPLLNK) 


DATA >0038 
MOV @>831C,RO 


*CHARGER EN MEMOIRE VIDEO LA LISTE DES SONS 
LI R1,>711A (1ERE ADRESSE DE LA LISTE) 


MOV @>7118,R2 (LONGUEUR DE LA LISTE) 
BLWP @>6028 (VMBW) 


*LANCER L'EXECUTION 
LIMI © 


MOV RO,@>83CC 

LI R2,>0100 

MOVB R2,@>83CE 

SOCB R2,@>83FD 

LIMI 2 

CLR @>837C 

B  *RIl (RETOUR) 
TEXT "MUSIQU' 


DATA >7FBA 
END 
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Ce programme Basic va vous 
permettre d'écrire en langage 
machine, la liste des sons à 
émettre, et d'implanter la routine 
pour exécuter ces sons dans la 
mini mémoire. Vous pourrez 
alors, à tout moment, directement 
ou dans un programme, en tapant 
CALL LINK ("MUSIQU"), faire 
exécuter votre morceau. 


Toute la partie "DATA" du 
programme représente les notes à 
jouer. Elles sont fournies à peu 
près comme en Basic. 


* durée multipliée ensuite par M 
(ici M = 167) à diminuer pour 
un rythme plus rapide ; 
fréquence, puissance du canal 
fréquence, puissance du canal 


fréquence, puissance du canal 
>: 


Différences par 
rapport à CALL 
SOUND 


Quelques différences par rapport 
au CALL SOUND du Basic : 
chaque ligne de "DATA" doit 
comporter 6 virgules ; sur un 
canal donné, une note 
commencée ne s'arrête que si une 
autre note est envoyée 
(éventuellement avec une 
puissance 30 si on ne veut pas 
l'entendre). On peut donc ne rien 
mettre comme fréquence et 
puissance si l'on veut réentendre 
la même note sur le même canal. 
La dernière "DATA" est par 
convention DATA O pour 
terminer le processus. 
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Utilisation 


Taper le programme Basic (les 
lignes de "DATA" peuvent être 
modifiées suivant l'air que vous 
voulez entendre). 


Le sauvegarder, car d'une 
manière générale, lorsqu'un 
programme fait appel à une 
routine en assembleur, on risque 
l'erreur fatale. 


Faire RUN et... patienter. On 
implante ainsi en fin de mini 
mémoire, la routine assembleur 
listée et commentée en fin 
d'article, puis la liste des sons 
codée comme ïil faut pour 
l'exécution. 


Le programme indique s'il y a 
trop de "DATA" pour la capacité 
de la mini mémoire, ou le nombre 
d'octets occupés (3746 au 
maximum). 


La liste des sons et la routine 
étant maintenant en mini 
mémoire, CALL LINK 
('MUSIQU") provoquera à tout 
moment l'exécution (en occupant 
une partie de la mémoire vidéo). 
CALL SOUND ( -1, 400, 30), 
par exemple, provoquera si on le 
souhaite une interruption avant la 


fin. 
99 





Programme de 
démonstration 
de la routine 
"Musique et 
Mini-mémoire" 
100 REM ECRITURE DE 
MUSIQUE EN MINIM 
EM 
REM ******PAR DENIS 
E AMROUCHE ******* 
REM CHARGEMENT 
EN MINI-MEMOIRE D 
E LA ROUTINE ASS 
EMBLEUR 
CALL LOAD(32698,20 


0,32,113,24,131,12 
4224) 


CALL LOAD(32706,13 
1,124,4,32,96,24,0 
r 56) 

CALL LOAD(32714,19 
2,32,131,28,2,1,11 
3,26) 

CALL LOAD(32722,19 
2,160,113,24,4,32, 
96,40) 

CALL LOAD(32730,3, 
0,0,0,200,0,131,20 
4) 

CALL LOAD(32738,2, 
2,1,0,216,2,131,20 
6) 

CALL LOAD(32746,24 
8,2,131,253,3,0,0, 
2) 

CALL LOAD(32754,4, 
224,131,124,4,91) 
REM MISE DU NOM 
DFDE LA ROUTINE 
CALL LOAD(32760,77 
,85,83,73,81,85,12 
7,182) 

CALL LOAD(28700,12 
7,248,127,248) 


CALL CLEAR 

REM LISTE DES SO 
NS:DUREE,FREQUEN 
CE1,PUISSANCE1,FRE 
QU2,PUIS2,FREQUS3,P 
UIS3 

REM LA DUREE EST 
MULTIPLIEE PAR M 
M=167 

REM UNE NOTE PAR 
LIGNE,6 VIRGULES P 
AR LIGNE 

DATA 1,466,0,,,, 
DATA 1,466,0,,,; 
DATA 2,523,0,156,0 


DATA 2,466,0,196, 0 


DATA 2,466,0,233,0 
DATA 2,466,0,156,0 
DATA 2,392,0,196,0 
DATA 2,392,0,233,0 
DATA 2,349,0,156,0 
DATA 2,311,0,196,0 


DATA 2,392,0,233,0 


2,466,0,156,0 
2,466,0,196,0 
2,466,0,233,0 
2,262,0,131,0 
2/311,0,156,0 
2,311,0,196,0 
2/349,0,131,0 
2/311,0,156,0 
2,349,0,196,0 
2,392,0,156,0 
2,466,0,196,0 
2,466,0,233,0 
2,466,0,156,0 
2,466,0,196,0 
2,466,0,233,0 
2,523,0,156,0 
2,466,0,196,0 
2,466,0,233,0 
2,466,0,156,0 
2:392,0,196,0 
2:392,0, 233,0 
2,349,0,156,0 
2,311,0,196,0 
2:392,0,233,0 
2,466,0,156,0 
2,466,0,196,0 
1,466,0,233,0 
1,466,0,233,0 
2,262,0,131,0 
2/311,0,156,0 


2:311,0,196,0 





‘):) MAGAZINE n°9 


720 DATA 2,349,0,131,0 
7130 DATA 2,311,0,156,0 
740 DATA 2,349,0,196,0 
150 DATA 2,392,0,156,0 
760 DATA 2,311,0,196,0 
7170 DATA 2,349,0,233,0 
780 DATA 2,311,0,156,0 
7190 DATA 2,311,0,196,0 
800 DATA 2,311,0,233,0 
810 DATA 2,262,0,131,0 
820 DATA 2,311,0,156,0 
830 DATA 2,311,0,196,0 
840 DATA 2,262,0,131,0 
850 DATA 2,311,0,156,0 
860 DATA 2,311,0,196,0 
870 DATA 2,294,0,147,0 
880 DATA 2,311,0,156,0 
890 DATA 2,311,0,156,0 
900 DATA 2,466,0,196,0 
910 DATA 2,466,0,196,0 
920 DATA 1,466,0,233,0 


930 DATA 1,466,0,233,0 
940 DATA 2,262,0,131,0 


950 DATA 2,311,0,156,0 
960 DATA 2,311,0,196, 0 
970 DATA 2,349,0,131,0 
980 DATA 2,311,0,156,0 


990 DATA 2,349,0,196,0 


LA 
1000 DATA 2,392,0,156, 
0,, 
1010 DATA 2,466,0,196, 
0,, 
1020 DATA 2,466,0,233, 
0,, 


DATA 2,466,0,156, 
0,, 

DATA 2,466,0,196, 
0,, 

DATA l; 466, 0, 233, 
0,, 

DATA 1,466,0,233, 
0,, 

DATA 2,523,0,156, 
0,, 

DATA 2,466,0,196, 
0,, 

DATA 2,466,0,233, 
0,, 

DATA 2,466,0,156, 
O,, 

DATA 2,392,9,196, 
0,, 

DATA 2,392,0,233, 
0,, 

DATA 2,349,0,156, 
0,, 

DATA 2,311,0,196, 
0,, 

DATA 2,392,0,233, 
0,, 

DATA 2,466,0,156, 
0,, 

DATA 2,466,0,196, 
0,, 

DATA 2,466,0,233, 
0,, 

DATA 2,262,0,131, 
0,, 

DATA 2,311,0,156, 
0,, 

DATA 2,311,0,196, 
0,, 

DATA 2,349,0,131, 
0,, 

DATA 2,311,0,156, 
0,, 

DATA 2,349,0,196, 
0,, 

DATA 2,392,0,156, 
0,, 

DATA 2,311,0,196, 
0,, 

DATA 2,349,0,233, 
0,, 

DATA 4,311,0,196, 
0,, 

DATA 2,311,0,196, 
0,, 

DATA 2,311,0,196, 
30,, 

DATA O0 

REM LA LISTE SE 
TERMINE TOUJOUR 
S PAR DATA 0 
DE=28954 

AD=28954 


READ D 

IF (D<0)+(D>4250/ 

M) THEN 1710 

IF D=0 THEN 1630 

ADR=AD+1 

FOR V=1 TO 3 

READ FR$,PUS 

IF PUS="" THEN 15 
10 

F=VAL (FRS) 

P=VAL (PUS) 

IF (F<110)+(F>447 
33)THEN 1710 

IF (P<0)+(P>30)TH 

EN 1710 

G=111860.8/F 

G2=INT(G/16) 

G1=G-16*G2 

CALL LOAD (ADR, 96+ 
32*V+G1,G2,112+32 
*V+P/2) 

ADR=ADR+3 

NEXT V 

D=D*M*6/100 

IF D>1 THEN 1550 

D=1 

CALL LOAD (ADR, D) 

ADR=ADR+1 

DIF=ADR-AD-2 

CALL LOAD (AD,DIF) 

PRINT I 

I=1+1 

AD=ADR 

IF AD>32780 THEN 

ELSE 1350 

CALL LOAD (AD,4,15 
9,191,223,255,0) 

BY=AD+6-DE 

BY1=INT(BY/256) 

CALL LOAD(28952,B 
Y1,BY-256*BY1) 

PRINT "NOMBRE DE 

BYTES UTILISES :" 
; BY+2 

CALL LINK ("MUSIQU 
1 

STOP 

REM MESSAGE D' 
ERREUR DANS LES 
DATA 

PRINT "ERREUR DAN 
S LA DATA NO";:I+1 

STOP 

PRINT "JE NE PEUX 
PLUS CHARGER AU 

DELA DE LA DATA N 

Q: EST 

PRINT "CAR JE N'A 
I PLUS DE PLACE D 

ANS LA MINI-MEMOI 

RE" 
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Transfert 
Image/Cassette 


Gérard Baroni et Jean Marin 


près vous avoir indiqué 
brièvement comment, 
avec la norme Texas 
Instruments, un trans- 
fert d'image vers une cassette - 
ou inversement - peut s'effectuer, 
nous exposerons notre solution 
qui apporte un gain substantiel de 
temps, de place mémoire et qui, 
de plus, donne accès à tous les 
modes graphiques du TI-99/4A. 


La configuration exigée 
comprend la Mini-mémoire ou le 
Basic étendu plus l'extension 
32K0. 


Voyons d'abord la manière de 
procéder en utilisant la norme 
Texas. 


+ En mode standard, il s'agit de 
réaliser une copie d'écran et de 
sauvegarder les codes ASCII 
des 768 cases de l'écran. Pour 
le transfert de ces 768 octets 
vers la cassette à l'aide de 
OPEN # CS1 et PRINT #..., 
192 octets sont transférés 
toutes les 10 secondes. 40 
secondes sont nécessaires pour 
expédier le contenu de l'écran 
vers notre cassette. 


Pour sauvegarder les tables 
d'écrans, des couleurs et des 
formes, soit 2048 octets au 
maximum, 11 enregistrements 
sont nécessaires et le transfert 
dure environ 2 minutes. 


En BitMap, où nous avons 
14 Ko d'image et 2 Ko de 
Basic restant, 1l y a interférence 
entre les "buffers" cassette et le 
reste. Avec 75 enregistrements 
de 10 secondes, il faudrait 
environ 12 minutes pour 
transférer l'image. 


Notre solution 


Pour disposer d'une plus grande 
liberté, nous allons nous brancher 
sur les routines ROM de la 
console sans passer par les 
routines GPL qui sont dans les 
GROMS. Les avantages sont les 
suivants : 


1) Le temps de silence pour 
l'amorce (avant le sifflement) 
disparait. 

2) Le transfert direct de l'image 
vers la cassette - et 
inversement - se fait sans 
passer par un buffer. Donc, il 
n'y a pas de place perdue en 
mémoire. À la lecture, l'image 
apparait au fur et à mesure du 
déroulement de la cassette. 


On peut aller en un seul enregis- 

trement jusqu'à un maximum de 
255 fois 64 octets soit 16 320 
octets, c'est à dire la totalité de la 
mémoire vive vidéo moins 64 
octets. 


Temps de tranfert 


+ Table écran (768 octets) : 
15 secondes au lieu de 40 ; 


Image (2048 octets) : 
30 secondes au lieu de 120 ; 


Image BitMap (14Ko) : 
3"15" au lieu de 1230". 


Les programmes "SI" (Sauve 
Image) et "LI" (Lire Image), en 
assembleur dont les listings 
suivent, sont accessibles du Basic 
par des CALL LINK("SI") ou 
CLR 

Après exécution, le retour au 
Basic se fait automatiquement, 
étant prévu dans la routine 
console. 


Important 


Dans le mode graphique 2 Ko, le 
CALL LINK ("LI") doit être 
précédé de CALL CHAR 
(159,"") qui a pour effet de 
réserver 2 Ko d'image. 


En BitMap, le CALL LINK 
("LI") doit être précédé d'un 
CALL LOAD (-31890,56,0) qui 
réserve 14 Ko d'image et d'un 
CALL LINK ("BITMAP") - voir 
99 magazine précédent - qui 
initialise le mode graphique 
BitMap dans le processeur vidéo. 


Méthode 


de transfert 
employée par 
Texas Instruments 


Les programmes "LI" et "SI" 
réalisent des transferts 
d'informations, mais étudions un 
peu le mécanisme de transfert 
prévu par le constructeur. 


Nous savons que tout message 
est constitué par une suite 
d'informations élémentaires 
codées sous forme binaire (0, 1). 
Ainsi, lors de l'enregistrement 
sur cassette ("SAVE CSI"), 
chacune de ces informations sera 
représentée par un signal d'une 
durée déterminée permettant à la 
machine de distinguer, au 
moment de la lecture ("OLD 
CS1"), entre la valeur O ou 1 du 
bit enregistré. Dans le système 
Texas, les mesures effectuées à 
l'aide d'un oscilloscope nous 
donnent les résultats suivants : 
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lorsqu'il s'agit du bit de valeur 

0, la durée (t) du signal est 

approximativement de 0,74 
illiseconde (ms) ; 


dans le cas du bit de valeur 1, 
(t) correspond à 2 phases 
d'émission séparées par un pic 
d'environ 0,37 ms chacune 
(2). La fréquence du signal 
enregistré est de l'ordre de 
1400 bits/sec ou 10 Ko/ 
minute. 


Examinons maintenant le contenu 
de l'enregistrement d'un 
programme sur cassette. Au 
début de celui-ci, nous entendons 
un sifflement pendant plus de 
14", ce qui équivaut au passage 
de 768 octets de valeur 0. Puis, 
survient 1 octet de valeur >FF 
annonçant le début d'un message, 
puis 2 octets identiques de valeur 
N (N désigne le nombre de 
tranches de 64 octets qui vont 


constituer le message proprement 
dit ; ce nombre varie en fonction 
de la longueur du programme). 


Tout ceci précède N purs de 

74 octets répétés 2 fois. Dans 

chacun de ces groupes, les octets 

se répartissent ainsi : 

+ 8octetsàä0; 

+ loctet à >FF ; 

+ 1 paquet de 64 octets corres- 
pondant au message ; 

+ 1 octet "checksum", ou somme 
modulo 256, des 64 octets 
permettant à la machine de 
tester la présence ou non 
d'erreurs dans un groupe. 


Les 8 octets de valeurs 0 et l'octet 
de valeur >FF sont très 
important : ils mesurent la vitesse 
du magnétophone et permettent 
une adaptation systématique 
constituant un véritable 
asservissement de vitesse, et 


Source des routines 


SI" et é 2 dd 


Adresse départ 
à choisir 


>83E0 


R1, TA 


@>1346 


Vers routine 


Nombre d'octets 
à transférer 
Adresse de base 
en RAM vidéo 

: normal) 


R1,TA 


@>142E 
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démontrent la haute fiabilité du 
système. 


Le "checksum" est un octet dont 
la valeur est calculée à 
l'enregistrement. Lors de la 
lecture, cette valeur sera 
comparée et devra être égale au 
reste de la division entière par 
256 de la somme des valeurs des 
64 octets. Comme nous savons 
que la valeur d'un octet ne saurait 
dépasser 255, si la somme des 
valeurs des 64 octets est 260 par 
exemple, le “checksum” devra 
Fi égal à 4 (260 modulo 256 = 


La répétition des groupes de 74 
octets permet donc de corriger 
une éventuelle erreur. En effet, 
lorsqu'un bit est faux, le 
"checksum" ne correspondra pas 
à la somme modulo 256 et, par 
conséquent, l'ordinateur saura 
que cette tranche est erronée. 
C'est pourquoi il prendra l'autre 
tranche en totalité, à condition 
qu'elle soit bonne. Dans le cas 
contraire, il affichera "DATA 
ERROR". Par analogie, on peut 
comparer le TI à un véhicule 
disposant d'une roue de secours, 
qui sera utilisée lors d'une 
crevaison. 


Nous voyons combien ce 
dispositif ralentit la transmission 
des données puisqu'il y a en fait 
148 octets pour un message réel 
de 64 octets seulement. La vitesse 
moyenne est de 600 bits/seconde, 
soit 75 octets/seconde, soit 
4,5 Ko/minute. 


Les gens pressés peuvent 
modifier les routines en ROM, 
après translation dans la RAM de 
la Mini-mémoire, pour supprimer 
la duplication des tranches, 
réalisant ainsi un gain de temps 
appréciable (t/2). Ils peuvent 
même accélérer le signal dans un 
rapport 2 si le magnétophone le 
permet. 


On arrive ainsi à transférer une 
image BitMap de 14 Ko en 35 
secondes environ. La même 
technique permet aussi de charger 
l'extension mémoire rapidement. 





23 


24 


Votre assiduité méritant récom- 
pense, voici joint le listing d'un 
programme éditeur de dessin en 
BitMap qui vous permettra de 
créer et de sauvegarder sur 
cassette vos graphismes. Ce 
programme utilise les routines 
vues dans les numéros précédents 
de 99 magazine. 


NB : En cas de modification du 
programme, Souvenez-vous que 
vous ne disposez que de 2 Ko 
pour le Basic et que les REMSs et 
les noms de variables trop longs 
sont à proscrire. 


99 


Routines 
"sl" et us À bi 


Programme de 
démonstration 


Basic TI et 
Mini-mémoire 


CALL LOAD(-31890,0 
) 

CALL CLEAR 

PRINT " LES COMMAN 
DES SONT:"::"=D,S, 
E,X POUR DEPLACER" 
" LE CURS 
EUR": : 

PRINT "-R DE 
PLACEMENT RAPIDE": 
"LL DEPLACE 
MENT LENT'":: 

PRINT "-C CO 
ULEUR" : : "-BEGIN 
DEPART DU SEGMENT" 
." A TRACE 
R"::"-ENTER TRAC 
E DU SEGMENT" : : 
PRINT "-AID SA 
UVER SUR K7'"::"-BA 
CK RETOUR AU BA 
SIC": 


INPUT "(ENTER) PO 
UR COMMENCER" :R$ 
CALL CLEAR 

PRINT "VOULEZ-VOUS 
RETROUVER UN"::"D 
ESSIN SUR K7 "; 
INPUT "(O/N)? ":R$ 
CALL LINK("BITMAP" 
) 

IF R$<>"O" THEN 23 
0 

CALL LINK("LI") 

D=1 

C=240 

Y=96 

X=128 

CALL POKEV(6912,Y- 
3,X-3,128,C/16,208 
r"%71168,0,68,56,4 
0,56,68,0,0) 

YD=Y 

XD=X 

CALL POKEV(6912,Y- 
3,X-3,128,C/16) 
CALL KEY(5,R,E) 

IF E=0 THEN 310 

IF R<>69 THEN 370 
Y=Y-D 

Y=Y-D* (Y<O) 

GOTO 300 

IF R<>88 THEN 410 
Y=Y+D 

Y=Y+D* (Y>191) 

GOTO 300 

IF R<>83 THEN 
X=X-D 

X=X-D* (X<8) 

GOTO 300 

IF R<>68 THEN 490 
X=X+D 
X=X+D*(X>255) 

GOTO 300 

IF R<>67 THEN 520 

C=C+16+240*%*(C=240) 

GOTO 300 

IF R<>14 THEN 560 


XD=X 

YD=Y 

IF R<>13 THEN 610 
CALL LINK('"COLOR", 
C) 

CALL LINK("DROITE" 
r XD; XD, Y, X) 

CALL SOUND(50,440, 
0) 

GOTO 280 

IF R<>82 THEN 650 
CALL SOUND(50,1000 
r0) 

D=8 

GOTO 310 

IF R<>76 THEN 690 
CALL SOUND(50,1000 
r 0) 

D=1 

GOTO 310 

IF R<>1 THEN 720 
CALL LINK("SI") 
GOTO 310 

IF R<>15 THEN 310 
CALL PEEKV(-32768, 
X) 
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ous vous proposons 

ici un jeu en trois 

dimensions, pour 

deux joueurs. Vous 
pouvez évidemment jouer seul, 
mais cela n'a pas grand intérêt, 
sinon celui de se familiariser avec 
le maniement du clavier et 
s'entrainer. 


Règles du jeu 


Chaque joueur dispose de douze 
étoiles réparties sur quatre 
plateaux. Pour gagner une partie, 
il faut être le premier à réaliser un 
alignement de quatre étoiles. Mais 
attention, pas n'importe quel 
alignement... vous devez 
retrouver celui choisi par 
l'ordinateur parmi les 68 
possibilités offertes. 


Les déplacements en diagonale 
sont interdits, vous devez 
toujours suivre lignes ou 
colonnes. Le programme refusera 
votre jeu si vous cherchez à 
tricher. 


Vous pouvez également changer 
de plateau pour monter ou 
descendre vos étoiles, à condition 
que cette opération respecte la 
règle suivante : la nouvelle 
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position doit être 
située immédiatement 
à la verticale de 
l'ancienne, et libre de 
toute étoile. 


Il est possible de 
gêner considérable- 
ment le jeu adverse 
puisque les permutations d'étoiles 
entre joueurs sont réalisables. Ce 
système permet d'employer 
plusieurs tactiques de jeu. À vous 
de les découvrir pour les utiliser 
au bon moment, et remporter la 
partie. Les permutations sont 
impossibles quand on change de 
plateau (le jeu serait trop facile). 


Chaque étoile bien placée donne 
un "bip" sonore aigü. 

Jeu à partir 

du clavier 


Touches 1 à 4 (plateau) 


Numéro de plateau. Ces numéros 
changent de couleur selon le tour 
du joueur (fond rouge ou blanc). 


Touches 1 à 4 (étoile) 


Coordonnées de l'étoile. Numéro 
de ligne en premier (sur la gauche 





Starline 


Georges Goument 


du plateau) puis numéro de 
colonne (chiffres devant le 
plateau). L'étoile change de 
couleur. 


Touches 1 à 4 (coordonnées) 


Tapez les nouvelles 
coordonnées : 1 à 4. Si vous ne 
changez pas de plateau de jeu, 
l'étoile occupe sa nouvelle 
position ou permute avec une 
étoile adverse. 


Touche N 


Changement de plateau : touche 
N, puis 1 à 4 = nouveau numéro 
de plateau ; plus 1 à 4 pour la 
nouvelle position. 

La touche N sert également pour 
l'annulation d'un coup, afin de 
jouer une autre position ou un 


autre plateau. 


Programme 
Starline 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
29 
26 
27 
28 
29 
30 


Basic TI 


KkKKKKKKKKEEX XX XX 
* 


STARLINE 


Basic TI 


HO OÙ tt + 


99 Magazine 


* 


* 
* 
* 
* 
copyright * 
x 
x 
* 
* 


-* G.  Goument 
kXkKKkHKkKkkHKX XX k XÀ k XÀ k X 


G2=48 

CALL CLEAR 
RANDOMIZE 

DIM A(4) 

J=0 

AL=0 

FOR 1=33 TO 47 
READ A$ 
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CALL CHAR(I,A$) 
NEXT I 
DATA 00000000000206 
02,020207,000000000 
0070501,020407,0000 
000000070103,010204 
081020408 
DATA 00000000000000 
FF,FF00010301010103 
FF0000000000008,FF 
00030200010203 
DATA FF008080800000 
8,FF00030001000003, 
FF0080808080808,FF0 
002020203,FF0000008 
0C0808 
CALL SCREEN (14) 
CALL COLOR(1,12,1) 
CALL COLOR(2,12,1) 
FOR I=9 TO 12 
CALL COLOR(I,15,1) 
NEXT I 
CALL COLOR(3,15,1) 
CALL CHAR(64,"92543 
8FE385492") 
CALL CHAR(72,"92543 
8FE385492") 
CALL CHAR(88,"92543 
8FE385492") 
CALL CHAR(80,"01010 
4%) 
CALL CHAR(81,"00000 
000000808021") 
CALL CHAR(82,"OF020 
2") 
INPUT "1 ou 2 joueu 
€s, YENS 
CALL CLEAR 
FOR I=1 TO 8 
CALL COLOR(I,1,1) 
NEXT I 
PRINT TAB(9);"Q ''' 
LA TS "":TAB(8) ; "GR&Q 
@ &":TAB(7);"#P 
&@ & l":TAB(6 
);"!1$Se& &" 
PRINT TAB(6);" & 
&":TAB(7);"()*+ 
r “1 "3: TAB (9) F0 vus 
T1 "":TAB(8) ; "GRE& 
&":TAB(7);"#P 
& & 2" 
PRINT TAB(6);"!$& 
Q&":TAB(6);" & 
@ @Q&":TAB(7);"() 
*+;—./":TAB(9);"Q ! 
RER 1": TAB(8);"3R 
& @ @ &” 
PRINT TAB(7);"#P&Q@ 


& 3":TAB(6);" 
&":TAB(6) 
; &":TAB (7 
)3" 0) *+,-./": TAB (9) 
210 Trrtirsrtn 
PRINT TAB(8);"%R& 
&":TAB(7);"#P& 
& 4":TAB(6) 
s"1$e& QG&":TAB ( 
6) ;" & @ Q&" 
C=40 
FOR I=9 TO 16 
CALL HCHAR(24,I,C) 
C=C+1 
NEXT I 
FOR I=5 TO 23 STEP 
6 
CALL HCHAR(I,8,34) 
NEXT I 
CALL HCHAR(1,3,72) 
CALL HCHAR(1,30,64) 
CALL HCHAR(3,3,G1) 
CALL HCHAR(3,30,G2) 
CALL COLOR(8,8,1) 
CALL COLOR(5,16,1) 
CALL COLOR(6,10,1) 
CALL COLOR(7,12,1) 
CALL COLOR(1,12,1) 
CALL COLOR(2,12,1) 
IF N$="1" THEN 84 
DATA 4,17,5,14,5,16 
r65 13:06, 15e 9r4085 16 
Lili 14 rL67 0x 
3;20,15:,21;12,0,0 
RESTORE 78 
READ Y,X 
IF Y=0 THEN 84 
CALL HCHAR(Y,X, 72) 
GOTO 80 
AL=0 
RA=0O 
RA=INT((68-1+1) *RND 
) +1 
N=0 
Y=0 
X=0 
NO=3000 
IF N$="1" THEN 93 
IF J=1 THEN 97 
J=1 
V=16 
H=64 
GOTO 100 
V=10 
J=0 
H=72 


100 CALL COLOR(3,2,V) 
101 CALL COLOR(4,2,V) 
102 CALL KEY(3,T,S) 


IF N=0 THEN 106 

IF N>0 THEN 139 
GOTO 127 

IF S=0 THEN 102 

IF T<>49 THEN 111 
N=1 

Z=3 

GOTO 122 

IF T<>50 THEN 115 
N=2 

Z=9 

GOTO 122 

IF T<>51 THEN 119 
N=3 

Z=15 

GOTO 122 

IF T<>52 THEN 124 
N=4 

Z=21 

CALL SOUND(5,123,5 
) 

GOTO 102 

IF T<>78 THEN 102 
IF XA=0 THEN 127 
CALL HCHAR(YA, XA,H 
) 

FOR I=1 TO 7 

CALL SOUND(10,110, 
0) 

NEXT I 

Y=0 

X=0 

N=0 

Z=0 

YA=0 

XA=0 

NA=0 

O=0 

GOTO 102 

CALL KEL (3, T5) 

IF NA=0 THEN 145 
IF N=NA+1 THEN 145 
IF N=NA-1 THEN 145 
IF N=NA THEN 145 
GOTO 125 

CALL HCHAR(Z,22, 32 
) 

IF N<>1 THEN 149 
CALL HCHAR(Z,22,49 
) 

GOTO 156 

IF N<>2 THEN 152 
CALL HCHAR(Z,22,50 
) 

GOTO 156 

IF N<>3 THEN 155 
CALL HCHAR(Z,22,51 
) 

GOTO 156 
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CALL HCHAR(Z,22,52 


) 

IF S=0 THEN 139 
IF T<>78 THEN 161 
N=0 

CALL SOUND(5,123,1 
0) 

GOTO 102 

IF T<>49 THEN 187 
IF N=1 THEN 171 
IF N=2 THEN 167 
IF N=3 THEN 169 
Y=23 

GOTO 172 

Y=11 

GOTO 172 

Y=17 

GOTO 172 

Y=5 

CALL SOUND(5,123,5 
) 

CALL KEY(3,T,S) 
IF S=0 THEN 173 
IF T<>49 THEN 178 
X=10 

GOTO 264 

IF T<>50 THEN 181 
X=12 

GOTO 264 

IF T<>51 THEN 184 
X=14 

GOTO 264 

IF T<>52 THEN 172 
X=16 

GOTO 264 

IF T<>50 THEN 213 
IF N=1 THEN 197 
IF N=2 THEN 193 
IF N=3 THEN 195 
Y=22 

GOTO 198 

Y=10 

GOTO 198 

Y=16 

GOTO 198 

Y=4 

CALL SOUND(5,123,5 
) 

CALL KEY(3,T,S) 
IF S=0 THEN 199 
IF T<>49 THEN 204 
X=11 

GOTO 264 

IF T<>50 THEN 207 
X=13 

GOTO 264 

IF T<>51 THEN 210 
X=15 

GOTO 264 
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IF T<>52 THEN 198 
X=17 

GOTO 264 

IF T<>51 THEN 239 
IF N=1 THEN 223 
IF N=2 THEN 219 
IF N=3 THEN 221 
Y=21 

GOTO 224 

Y=9 

GOTO 224 

Y=15 

GOTO 224 

Y=3 

CALL SOUND(5,123,5 
) 

CALL KEY(3,T,S) 
IF S=0 THEN 225 
IF T<>49 THEN 230 
X=12 

GOTO 264 

IF T<>50 THEN 233 
X=14 

GOTO 264 

IF T<>51 THEN 236 
X=16 

GOTO 264 

IF T<>52 THEN 224 
X=18 

GOTO 264 

IF T<>52 THEN 139 
IF N=1 THEN 249 
IF N=2 THEN 247 
IF N=3 THEN 245 
Y=20 

GOTO 250 

Y=14 

GOTO 250 

Y=8 

GOTO 250 

Y=2 

CALL SOUND(5,123,5 
) 

CALL KEY(3,T,S) 
IF S=0 THEN 251 
IF T<>49 THEN 256 
X=13 

GOTO 264 

IF T<>50 THEN 259 
X=15 

GOTO 264 

IF T<>51 THEN 262 
X=17 

GOTO 264 

IF T<>52 THEN 250 
X=19 

CALL SOUND(5,123,5 
) 

IF O=1 THEN 280 


CALL GCHAR(Y,X,E) 
IF J=0 THEN 270 
IF E=72 THEN 127 
GOTO 271 
IF E=64 THEN 127 
IF E=32 THEN 127 
CALL HCHAR(Y,X,88) 
YA=Y 

=X 
NA=N 
O=1 
Y=0 
X=0 
GOTO 102 
IF N<>NA THEN 291 
IF Y<>YA THEN 285 
IF X=XA+2 THEN 298 
IF X=XA-2 THEN 298 
GOTO 125 
IF Y<>YA-1 THEN 28 
8 
IF X=XA+1 THEN 298 
GOTO 125 
IF Y<>YA+1 THEN 12 
5 
IF X=XA-1 THEN 298 
GOTO 125 
IF X<>XA THEN 125 
IF Y=YA-6 THEN 295 
IF Y=YA+6 THEN 295 
GOTO 125 
CALL GCHAR(Y,X,F) 
IF F<>32 THEN 125 
GOTO 307 
CALL GCHAR(Y,X,F) 
IF F=32 THEN 307 
IF J=0 THEN 304 
CALL HCHAR(Y,X, 64) 
CALL HCHAR(YA, XA, 7 
2) 
GOTO 313 
CALL HCHAR(Y,X, 72) 
CALL HCHAR(YA, XA, 6 
4) 
GOTO 313 
IF J=0 THEN 311 
CALL HCHAR(Y,X, 64) 
CALL HCHAR (YA, XA, 3 
2) 
GOTO 313 
CALL HCHAR(Y,X, 72) 
CALL HCHAR(YA, XA, 3 
2) 
CALL SOUND (10,200, 
10) 
CALL SOUND (10,220, 
10) 
CALL SOUND (10,240, 
10) 





CALL SOUND (10,260, 
10) 

O=0 

Z=0 

XA=0 


=0 
RA>64 THEN 531 
RA>60 THEN 452 
RA>56 THEN 422 
RA>40 THEN 616 
RA>=30 THEN 561 
RA>=20 THEN 482 
RA>=10 THEN. 373 
RA=1 369 
RA=2 341 
RA=3 345 
RA=4 349 
RA=S5 333 
RA=6 357 
RA=7 361 
RA=8 365 
E=14 
F=13 
GOSUB 695 
GOTO 337 
E=3 
F=12 
GOSUB 695 
GOTO 341 
E=4 
F=11 
GOSUB 695 
GOTO 345 
E=5 
F=10 
GOSUB 695 
GOTO 349 
E=8 
F=13 
GOSUB 695 
GOTO 353 
E=9 
F=12 
GOSUB 695 
GOTO 357 
E=10 
F=11 


RA=11 
RA=12 
RA=13 
RA=14 
RA=15 
RA=16 
RA=17 
RA=18 
2 
F=17 
GOSUB 705 
GOTO 382 
E=15 
F=12 
GOSUB 695 
GOTO 386 
E=16 
F=11 
GOSUB 695 
GOTO 390 
E=17 
F=10 
GOSUB 695 
GOTO 394 
E=20 
F=13 
GOSUB 695 
GOTO 398 
E=21 
F=12 
GOSUB 695 
GOTO 402 
E=22 
F=11 
GOSUB 695 
GOTO 406 
E=23 
F=10 
GOSUB 695 
GOTO 410 
E=2 
F=13 
GOSUB 705 
GOTO 414 
E=2 
F=15 
GOSUB 705 
GOTO 418 


E=2 

F=15 

GOSUB 441 

GOTO 433 

E=2 

F=17 

GOSUB 441 

GOTO 437 

FOR I=1 TO 4 

IF AL=0 THEN 446 
CALL HCHAR(E,F,88) 
GOSUB 738 

GOTO 447 

CALL GCHAR(E,F,A(I 
)) 

E=E+7 

F=F-1 

NEXT I 

IF AL=1 THEN 777 
GOTO 752 

IF RA=61 THEN 459 
IF RA=62 THEN 463 
IF RA=63 THEN 467 
E=5 

F=10 

GOSUB 471 

GOTO 455 

E=5 

F=16 

GOSUB 471 

GOTO 459 

E=5 

F=14 

GOSUB 471 

GOTO 463 

E=5 

F=12 

GOSUB 471 

GOTO 467 

FOR I=1 TO 4 

IF AL=0 THEN 476 
CALL HCHAR(E,F,88) 
GOSUB 738 

GOTO 477 

CALL GCHAR(E,F,A(I 
)) 

E=E+5 

F=F+1 


GOSUB 695 IF RA=57 THEN 429 NEXT I 
GOTO 361 IF RA=58 THEN 433 IF AL=1 THEN 777 
E=11 IF RA=59 THEN 437 GOTO 752 


F=10 

GOSUB 695 

GOTO 365 

E=2 

F=13 

GOSUB 695 

GOTO 369 

IF RA=10 THEN 386 


E=2 

F=19 
GOSUB 441 
GOTO 425 
E=2 

F=13 
GOSUB 441 
GOTO 429 


RA=27 THEN 523 
RA=26 THEN 519 
RA=25 525 
RA=24 Si 
RA=23 507 
RA=22 503 
RA=21 499 
RA=20 495 





IF RA=28 THEN 527 
E=20 

F=13 
GOSUB 705 
GOTO 491 
E=2 

F=19 
GOSUB 705 
GOTO 495 
E=8 

F=13 
GOSUB 705 
GOTO 499 
E=8 

F=15 
GOSUB 705 
GOTO 503 
E=8 

F=17 
GOSUB 705 
GOTO 507 
E=8 

F=19 
GOSUB 705 
GOTO 511 
E=14 

F=13 
GOSUB 705 
GOTO 515 
E=14 

F=15 
GOSUB 705 
GOTO 519 
E=14 

F=17 
GOSUB 705 
GOTO 523 
E=14 

F=19 
GOSUB 705 
GOTO 527 
IF RA=65 THEN 538 
IF RA=66 THEN 542 
IF RA=67 THEN 546 
E=2 

F=13 
GOSUB 550 
GOTO 534 
E=3 

F=12 
GOSUB 550 
GOTO 538 
E=4 

F=11 
GOSUB 550 
GOTO 542 
E=5 

F=10 
GOSUB 550 
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GOTO 546 

FOR I=1 TO 4 

IF AL=0 THEN 555 
CALL HCHAR(E,F,88) 
GOSUB 738 

GOTO 556 


CALL GCHAR(E,F,A(I 


)) 

E=E+6 

F=F+2 

NEXT I 

IF AL=1 THEN 777 

GOTO 752 
RA=38 608 
RA=38 608 
RA=37 604 
RA=36 600 
RA=35 596 
RA=34 592 
RA=33 588 
RA=32 584 
RA=31 580 
RA=30 576 
RA=39 612 

E=20 

F=13 

GOSUB 727 

GOTO 572 

E=20 

F=15 

GOSUB 705 

GOTO 576 

E=20 

F=17 

GOSUB 705 

GOTO 580 

E=20 

F=19 

GOSUB 705 

GOTO 584 

E=2 

F=13 

GOSUB 727 

GOTO 588 

E=2 

F=19 

GOSUB 716 

GOTO 592 

E=8 

F=13 

GOSUB 727 

GOTO 596 

E=8 

F=19 

GOSUB 716 

GOTO 600 

E=14 

F=13 

GOSUB 727 


GOTO 604 
E=14 
F=19 
GOSUB 716 
GOTO 608 
E=20 
F=19 
GOSUB 716 
GOTO 612 
RA=41 
RA=42 
RA=43 
RA=44 
RA=45 
RA=46 
RA=47 
RA=48 
RA=49 
RA=50 
RA=51 
RA=52 
RA=53 
RA=54 
RA=55 


F=19 
GOSUB 743 
GOTO 631 
E=2 

F=13 
GOSUB 743 
GOTO 635 
E=2 

F=15 
GOSUB 743 
GOTO 639 
E=2 

F=17 
GOSUB 743 
GOTO 643 
E=2 

F=19 
GOSUB 743 
GOTO 647 
E=3 

F=13 
GOSUB 743 
GOTO 651 
E=3 

F=15 
GOSUB 743 
GOTO 655 
E=3 

F=17 
GOSUB 743 
GOTO 659 
E=3 

F=19 
GOSUB 743 





29 


30 


GOTO 663 

E=4 

F=13 

GOSUB 743 
GOTO 667 

E=4 

F=15 

GOSUB 743 
GOTO 671 

E=4 

F=17 

GOSUB 743 
GOTO 675 

E=4 

F=19 

GOSUB 743 
GOTO 679 

E=5 

F=13 

GOSUB 743 
GOTO 683 

E=5 

F=15 

GOSUB 743 
GOTO 687 

E=5 

F=17 

GOSUB 743 
GOTO 691 

FOR I=1 TO 4 
IF AL=0 THEN 700 
CALL HCHAR(E,F,88) 
GOSUB 738 
GOTO 701 
CALL GCHAR(E,F,A(I 


IF AL=1 THEN 777 
GOTO 752 

FOR I=1 TO 4 

IF AL=0 THEN 710 
CALL HCHAR(E,F,88) 
GOSUB 738 

GOTO 711 

CALL GCHAR(E,F,A(I 


IF AL=1 THEN 777 
GOTO 752 

FOR I=1 TO 4 

IF AL=0 THEN 721 
CALL HCHAR(E,F,88) 
GOSUB 738 

GOTO 722 

CALL GCHAR(E,F,A(I 
}} 


E=E+1 

F=F-2 

NEXT I 

IF AL=1 THEN 777 

GOTO 752 

FOR I=1 TO 4 

IF AL=0 THEN 732 

CALL HCHAR(E,F,88) 

GOSUB 738 

GOTO 733 

CALL GCHAR(E,F,A(I 
)) 

E=E+1 

F=F+1 

NEXT I 

IF AL=1 THEN 777 

GOTO 752 

FOR P=0 TO 30 STEP 
2 

CALL SOUND(1,NO,P) 

NEXT P 

NO=NO+200 

RETURN 

FOR I=1 TO 4 

IF AL=0 THEN 748 

CALL HCHAR(E,F,88) 

GOSUB 738 

GOTO 749 

CALL GCHAR(E,F,A(I 
)) 

E=E+6 

NEXT I 

IF AL=1 THEN 777 
IF A(1)<>H THEN 75 

4 

CALL SOUND (10, 3000 
r 0) 

IF A(2)<>H THEN 75 
6 

CALL SOUND (10, 3200 
r 0) 

IF A(3)<>H THEN 75 

8 

CALL SOUND (10, 3400 
r 0) 

IF A(4)<>H THEN 76 

0 

CALL SOUND(10,36C0 
r 0) 

E=0 

F=0 

IF (A(1)=H)*(A(2)= 

H)*(A(3)=H)*(A(4)= 

H) THEN 764 

GOTO 87 

IF J=1 THEN 771 

G1=G1+1 

IF G1>57 THEN 808 

CALL HCHAR(3,3,G1) 


AL=1 

CALL SCREEN(16) 
RETURN 

AL=1 

G2=G2+1 

IF G2>57 THEN 808 
CALL HCHAR(3,30,G2 
) 

CALL SCREEN(10) 
RETURN 
M$="nouvelle" 

Y=12 

X=22 

GOSUB 790 
M$="partie" 

Y=14 

X=23 

GOSUB 790 

M$="o n" 

Y=16 

X=24 

GOSUB 790 

GOTO 797 

FOR I=9 TO 12 

CALL COLOR(I,2,1) 
NEXT I 

FOR I=1 TO LEN (MS) 
CALL HCHAR(Y,X+I,A 
SC(SEGS (M$,1I,1))) 
NEXT I 

RETURN 

CALL KEY(3,T,S) 

IF S=0 THEN 797 

IF T<>79 THEN 803 
CALL SCREEN(14) 
CALL CLEAR 

GOTO 50 

CALL CLEAR 

CALL SCREEN(13) 
FOR I=1 TO 12 

CALL COLOR(I,12,1) 
NEXT I 

PRINT TAB(8);"resu 
ltat final" 

IF G1<>G2 THEN 812 
PRINT TAB(10);'"mat 


GOTO 816 

IF G1>G2 THEN 815 

PRINT "etoiles bla 
nches gagnantes":: 


GOTO 816 
PRINT " etoiles r 
ouges gagnantes":: 


FOR DE=1 TO 200 
NEXT DE 
END 
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Gestion de fichiers 
en assembleur et 
Basic étendu 


Michel Teyssou 


ous vous proposons 

une série de 

programmes destinés 

à gérer un fichier 
d'adresses, et utilisables à partir 
du Basic étendu, de 
l'éditeur/assembleur, ou de la 
Mini-mémoire. Leur mise en 
œuvre nécessite une imprimante, 
une extension 32Ko et, bien sûr, 
un des modules concernés. 


Ces programmes offrent les 
mêmes possibilités que le module 
"PRK"' ou la disquette éditée par 
Texas Instruments, mais en 
beaucoup plus performants. En 
effet, ils autorisent le traitement 
de 450 fiches, alors que le 
module "PRK'" ne permet de 
traiter que 102 fiches 
équivalentes. On peut donc entrer 
450 fiches sur une disquette qui 
contient déjà la totalité des 
programmes. De plus, la 
dimension des informations est 
plus importante qu'avec le 
module "PRK"!. 


Les enregistrements sont limités à 
127 octets, car cela permet, dans 
la majorité des cas, de loger les 
informations dont nous avons 
besoin. De plus, le "Buffer" du 
PAB emmagasinant à chaque fois 
255 octets, cela permet d'avoir en 
mémoire l'enregistrement de- 
mandé plus le suivant, d'où 
(suivant le type de traitement) un 
gain de temps appréciable 
pendant la saisie. 


Les saisies sont modifiables ; à 
cet effet, elles sont regroupées 
sous forme de "DATA" dans le 
programme Basic et les zones à 
modifier sont indiquées dans la 
version assembleur. En Basic, 
chaque saisie de chaîne occupe, 
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en format INTERNAL, sa 
longueur plus un (octet destiné à 
renseigner l'ordinateur sur la 
longueur de la chaîne). En 
assembleur, les indicateurs ont 
été supprimés afin d'obtenir plus 
de place ; de ce fait, un fichier 
créé avec la version "assembleur" 
ne sera pas utilisable depuis la 
version "Basic". 


La somme maximum des saisies 
ne doit en aucun cas dépasser la 
longueur maximum désignée en 
FIXED (127 dans le cas présent). 
L'enregistrement O contient les 
renseignements indispensables : 


° TRI (nombre de fiches triées) ; 

+ TOT (totalité des fiches triées 
et non triées) ; 

*_ Noms des groupes (8 maxi, 11 
lettres au plus chacun) ; 
NG (nombre de groupes, ceci 
avec quelques variantes 
d'emplacement en Basic et en 
assembleur). 


Les fiches doivent être 
regroupées en catégories : 
secteurs ou groupes (nous avons 
choisi ce dernier qualificatif, mais 
on peut prendre n'importe 
lequel). Si la fiche n'est pas dans 
un des groupes, elle sera classée 
"INACTIF" et pourra être effacée 
lors d'un tri. 


Grâce à un tri par indexation, on 
peut classer très rapidement les 
noms par ordre alphabétique. 
Pour donner un ordre d'idée, il 
faut 45 minutes au module 
"PRK" pour trier 200 noms, 
alors qu'il faut moins de cinq 
minutes au programme "TRI" 
écrit en Basic et environ trois fois 
moins à celui écrit en assembleur. 


Il faudra se servir souvent de ces 


programmes "TRI", car lors de la 
saisie des noms, la recherche 
pour vérifier qu'il n'est pas déjà 
dans le fichier sera extrêmement 
rapide (méthode des blocs). 
Sinon, la recherche se fait 
séquentiellement, dont beaucoup 
plus lentement. 


Dans tous les programmes 
d'impression ou d'affichage, on 
peut à tout moment interrompre le 
processus avec la barre "espace" 
(idem pour reprendre). On peut 
arrêter avec <FCTN BACK>. 
Dans ce cas, il faut maintenir les 
2 touches enfoncées jusqu'à 
l'arrêt. 

Dans la totalité des saisies de 
variables numériques, le fait de 
rentrer le chiffre zéro (0), permet 
un retour au dernier menu, et 
invalide la saisie en cours. 


Programmes 
Basic 


Conseil de saisie 


Lorsque vous rentrerez ces 
programmes dans votre 
ordinateur préféré, évitez de 
mettre les remarques et tête de 
chapitre ; elles ne sont là que pour 
clarifier le listing et aucun 
branchement ne se fait sur ces 
lignes. De ce fait, votre 
programme se manipulera plus 
rapidement au chargement, et 
tiendra moins de place sur la 
disquette, (les programmes + 
"données" et "index ” occupent la 
totalité de la face disquette avec 
les 450 fiches à condition que les 
programmes n'aient aucun 
commentaire). J'ai cherché à les 
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32 


optimiser au mieux, et du fait de 
l'imprimante, ils tournent 
pratiquement aussi vite (pour 
l'impression) que des 
programmes similaires écrits en 
assembleur. 


Sommaire (LOAD) 


Programme qui permet de choisir 
le traitement désiré ; il n'y a rien 
de spécial à dire sur son 
fonctionnement qui est hyper 
classique. Le fait qu'il s'appelle 
LOAD permet de le charger 
automatiquement. 


Programme “LOAD" 
Basic étendu 


20 * SOMMAIRE 

40 CALL CLEAR :: CALL COLOR(13,8,1 
):: CALL VCHAR(1,31,129,96):: 
ALL SCREEN(8):: FOR I=1 TO 12 : 
: CALL COLOR(I,16,5):: NEXT I 
DISPLAY AT(4,8)BEEP : “SOMMAIRE": 
TAB(8);"-------- ” 
DISPLAY AT(8,6):"1 GERER": 
(6);"2 TRIER": :TAB(6);"3 IMPRI 
MER“: :TAB(6);"4 INITALISER": : 
TAB(6);"5 RECHERCHER" 

70 DISPLAY AT(18,6):"6 TITRER EN G 
ROS" 

80 CALL KEY(0,K,S):: IF S=0 THEN 8 
0 


: TAB 


90 IF K<49 OR K>54 THEN 80 

100 ON K-48 GOTO 110,120,130,140,1 
50,160 

110 CALL HCHAR(8,7,62):: RUN “DSK1 
-GERER" 

120 CALL HCHAR(10,7,62):: 
1.TRIER" 

130 CALL HCHAR(12,7,62):: 
1.IMPRIMER* 

140 CALL HCHAR(14,7,62):: 
1.INITIALISE" 

150 CALL HCHAR(16,7,62):: RUN "DSK 
1.RECHERCHER* 

160 CALL HCHAR(18,7,62):: 
1.TITRER" 

170 END 


RUN “DSK 
RUN “DSK 


RUN "DSK 


“DSK 


Initialise le fichier 


C'est le premier programme à 
faire tourner ; il permet d'ouvrir 
les fichiers, de contrôler si 
l'espace initial pour les données 
est suffisant. Vous devrez alors 
rentrer le nom des groupes dans 
lesquels vous mettrez vos fiches. 


Programme “INITIALISE" 
Basic étendu 


10 f'esecreureseseeeesese 


20 IINITIALISER LE FICHIER 


freesesenerenensareseee 


ON WARNING NEXT :: CALL CLEAR : 
: CALL SCREEN(7):: CALL COLOR( 
13,7,7):: CALL VCHAR(1,31,129, 
96) :: ON BREAK NEXT 

FOR A=1 TO 12 :: CALL COLOR(A,S5 
#12):: NEXT À :: CALL TIT :: C 


ALL ENT :: CALL STOP (A) 

OPEN #1:"DSK1.",INPUT , INTERNAL 
» RELATIVE 

INPUT #1:A$,A,B,C :: 
IF C>227 THEN 140 
CALL NET :: DISPLAY AT(2,1):"LE 
NOMBRE DE SECTEURS SUR LA“:"D 
ISQUETTE EST INSUFFISANT...":"* 


CLOSE #1 


100 DISPLAY AT(5,1):" LE FICHIER C 
OMPLET OCCUPE 227 SECTEURS P 
OUR 450 NOMS 
DISPLAY AT(10,2):"*NOM DU DISQU 
E:";" ";A$: :" SECTEURS DISP:"* 
rC 
LA 
DISPLAY AT(15,7):"OPTIONS:": : 
TAB(6);"1.AUTRE ESSAI": :TAB(6 
);"2.SORTIE" 
CALL CHOIX(A):: 

ELSE STOP 
CALL NET :: 


IF A=1 THEN 60 


DISPLAY AT(5,1):*- 
LE FICHIER COMPLET OCCUPERA 2 
27 SECTEURS POUR 450 NOMS ---- 


DISPLAY AT(15,5):"OUVERTURE DU 
FICHIER" 

CALL ENT :: CALL STOP (A) 

OPEN #1:"DSK1.DONNEES"*,RELATIV 
E,INTERNAL,FIXED 127 


| ainissicuisiainintais uinish isishuint nie) 


Nom de groupes 

DORA ERREREES 

CALL NET 

DIM G$(8) 

CALL GROUP :: FOR A=1 TO 8 :: 

DISPLAY AT(9+A,2):A;"- “;GS(A) 
:: NEXT À 

NG, A=0 

CALL NGR :: CALL NUM(A) 

IF A>8 THEN 340 

IF G$(A)<>"** AND G$(A)<>" “ TH 

EN IF NG THEN NG=NG-1 

ACCEPT AT(23,5)S1IZE(-11):G$ (A) 
IF G$(A)="" OR G$(A)="*" *“ THEN 
310 

NG=NG+1 :: IF NG=9 THEN CALL N 

ET2 :: DISPLAY AT(9+A,7):G$ (A) 
:: CALL UTIL :: CALL ENT :: CA 
LL STOP(A):: GOTO 340 

DISPLAY AT(9+A,7):G$(A) 

DISPLAY AT(23,2):" ENCORE (O/ 

N)2? O* :: ACCEPT AT(23,18)VALI 

DATE (“ON“)SIZE(-1):A$ 

IF A$="O*" THEN CALL NET2 :: GO 

TO 250 

IF NG=0 THEN DISPLAY AT(21,2): 
“AUCUN No DE GROUPE VALIDE* :: 
CALL ENT :: CALL STOP(A):: CA 
LL NET2 :: GOTO 240 

CALL NET2 :: DISPLAY AT(21,2): 
“MODIFICATIONS (O/N)?N* :: ACC 
EPT AT(21,22)S1ZE(-1)VALIDATE( 
“ON“):AS$S 

IF A$="O"* THEN CALL NET2 :: GO 
TO 240 

CALL NET :: DISPLAY AT(14,3):" 
DISPOSITIF D'IMPRESSION ?*: :T 
AB(6);"-->" :: ACCEPT AT(16,10 
)BEEP SIZE (-16) : IMP$ 

DISPLAY AT(14,2)BEEP:"SI. TOUT 
EST OK APPUYEZ SUR": :* <EN 
TER> POUR VALIDER": :* <BAC 
K> POUR CORRIGER* 

CALL STOP(A):: IF A=15 THEN CA 
LL NET :: GOTO 230 

TRI$="350" :: TOT$="000" :: TI 
TRE$="O" :: NG$=STRS (NG) 

PRINT #1,REC O:TRIS$,TOTS$,TITRE 
$,1IMP$,G$(1),G$(2),G$(3),G$ (4) 
:G$(5),G$(6),G$(7),G$(8),NG$ : 
: CLOSE #1 

OPEN #3:"DSK1.INDEX",INTERNAL, 
OUTPUT,FIXED 4 

PRINT #3:" * :: CLOSE #3 :: CA 
LL NET :: DISPLAY AT(9,4)BEEP: 
MRRKRRRARARRRRRRRRARRARN : TAB (4 
) del LES 

DISPLAY AT(11,4)BEEP:"** FICHIE 

R INITIALISE *"*:TAB(4);"x* 


X":TAB(4);"**x*x 
KRRRARRRARRRARRR RE 

CALL ENT :: CALL STOP (A) 

END 


{ SPROGRAMMES FERMES 


SUB TIT :: DISPLAY AT(9,10):"T 

1 99/4A*: : :TAB(4);"INITIALIS 

ER LE FICHIER"“:TAB(4);"------- 

:: SUBEND 

SUB ENT :: DISPLAY AT(23,1):" 
Appuyez sur <enter>*" :: SU 

BEND 

SUB GROUP :: DISPLAY AT(5,5):" 

GROUPES SUR FICHIER":TAB(5);"- 

:: SUBEND 

SUB NGR :: DISPLAY AT(21,4)BEE 

P:"NOM DU GROUPE No“ :: SUBEND 

SUB NUM(G):: G=G+1 :: DISPLAY 

AT(21,20):G :: SUBEND 

SUB UTIL :: DISPLAY AT(21,2):" 

LES 8 No DE GROUPES ONT E 

TES UTILISES* :: SUBEND 

SUB STOP (K) 

CALL SOUND(150,800,0) 

CALL KEY(0,K,S):: IF NOT S THE 

N 580 

IF K<>13 AND K<>15 THEN 570 

SUBEND 

SUB NET :: CALL VCHAR(1,3,32,6 

72):: SUBEND 

SUB NET2 :: FOR A=20 TO 24 :: 

CALL HCHAR(A,3,32,28):: NEXT A 

:: SUBEND 


Gestion du fichier 


Ce programme permet de saisir 
les données et de modifier 
éventuellement noms de groupes 
ou informations contenues dans 
les fiches. Il permet également de 
marquer une fiche pour l'effacer 
(avec TRI), de rechercher une 
fiche ou un goupe et de 
l'imprimer sur l'écran. Les lignes 
1210 à 1230 contiennent les 7 
groupes d'informations de la 
fiche (3 à 9), le nombre à droite 
correspond au nombre de lettres 
maxi que contiendra la saisie. En 
cas de modifications, ce total ne 
doit en aucun cas dépasser 109 
pour les 7 groupes de saisies. 

En effet, chaque enregistrement 
contient 9 informations D$ (1à9), 
la première occupe 1 octet, soit A 
(actif), I (inactif), E (effacement). 
La deuxième occupe 8 octets 
(groupe dans lequel est la 
personne), les autres sont ceux de 
la fiche, soit 1+8+109 = 118+1 
su par information : 18 + 9 = 
127. 


Programme “"GERER" 
Basic étendu 


1 0 [ORAN REC ENANRNES 


11 !* GESTION DU FICHIER 

12 PORPARESERRERRRERRERENS, 

20 DIM G$(8),D$(9),XX(9),P$(450) 

30 ON WARNING NEXT :: ON BREAK NEX 
T :: CALL CLEAR :: CALL SCREEN( 
7):: CALL COLOR(13,7,7):: CALL 
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VCHAR(1,31,129,96) 

40 FOR A=1 TO 12 :: CALL COLOR(A,S5 
#12)2:: NEXT À :: CALL TIT :: CA 
LL ENT :: CALL STOP (RG$, A) 

50 DISPLAY AT(23,5):"Un instant sv 


Deese 


60 OPEN #1:"DSK1.",RELATIVE, INTERN 
AL, INPUT 
70 INPUT #1:A$ :: IF A$="DONNEES" 
THEN 100 ELSE IF A$<>"**" THEN 70 
80 CLOSE #1 :: CALL NET :: CALL RI 
EN 
90 CALL CHOIX(A):: IF A<1l OR A>2 T 
HEN 90 :: IF A=1 THEN 50 ELSE S 
TOP 
100 CLOSE #1 
110 OPEN #1:"DSK1.DONNEES"*,RELATIV 
E,INTERNAL,FIXED 127 
120 INPUT #1,REC O:TRI$,TOT$, TITRE 
$,1MP$,G$(1),G$(2),G$(3),G$ (4) 
/6$(5),G$(6),G$(7),G$(8),NG$ : 
: TRI=VAL(TRIS$):: TOT=VAL(TOTS 
:: NG=VAL (NG$) 
OPEN #3:"DSK1.INDEX", INTERNAL, 
INPUT ,FIXED 4 
FOR 1=1 TO TRI :: INPUT #3:P$( 
1):: NEXT I :: CLOSE #3 
GROUP$="NNNNNNNN" :: RG$="N" 
CALL NET :: RESTORE #1 :: CALL 
OPT1 
DISPLAY AT(17,5):"FICHES TRIEE 
S =";TRI: :TAB(8);"NON TRIEES 
="; TOT-TRI 
CALL CHOIX(A):: IF A<1 OR A>4 
THEN 180 
ON À GOTO 210,720,990,1200 


presesronsanneeseeesses 


Mise a jour du fichier 


À 


CALL NET :: CALL OPT2 

CALL CHOIX(A):: IF A<1l OR A>4 
THEN 220 

IF (A=1)*(TOT>450)=0 THEN 250 
CALL NET :: CALL PLEIN :: CALL 
ENT :: CALL STOP(RG$,A):: GOT 
O 210 

ON À GOTO 270,500,680,160 

®** Ajouter tvévéte 

CALL NET :: CALL NOM :: CALL À 
JOUT :: GOSUB 1450 :: IF N$=" 
“ OR N$="" THEN 

ELSE IF A=0 THEN 340 

CALL DEJA :: IF D$(1)="E" THEN 
CALL EFF ELSE IF D$(1)="1" TH 

EN CALL INAC :: CALL AUTRE ELS 

E CALL AUTRE 

ACCEPT AT(24,24)VALIDATE (“ON") 
SIZE(-1):A$ :: IF A$="N" THEN 
270 

REP=Z :: IF D$(1)<>"E" THEN 34 
0 

IF D$(2)=GROUP$ THEN D$(1)="1" 
GOTO 460 

D$(1)="A" :: GOTO 460 

RESTORE 1220 :: CALL NET :: CA 
LL DONNE :: CALL MOD 

J=409 :: GOSUB 1400 :: D$(3)=N 


$ 

DISPLAY AT(24,2)BEEP:"C'EST CO 
RRECT? (O/N) O" 

ACCEPT AT(24,23)VALIDATE (“ON“*) 
SIZE(-1):A$ :: IF A$="N" THEN 
RESTORE 1220 :: DISPLAY AT(23, 
1):: GOTO 340 

D$(2)=GROUPS$ :: IF NG=0 THEN D 
$(1)="1" :: GOTO 450 

CALL NET :: CALL NOU :: DISPLA 


FOR A=1 TO NG 

DISPLAY AT(12+A,5):G$(A);TAB(1 
7);"O/N N“ :: ACCEPT AT(12+A,2 
1) VALIDATE (“ON“) SIZE (-1) BEEP :A 


$ 

GOSUB 1510 

NEXT A 

DISPLAY AT(24,3):"C'EST CORREC 
T? (O/N) O" :: ACCEPT AT(24,24 
)VALIDATE(“ON")SIZE(-1):A$ :: 
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IF A$="N" THEN D$(2)=GROUPS :: 
GOTO 380 

IF D$(2)=GROUPS$ THEN D$(1)="1" 
ELSE D$(1)="A" 

IF REP=0 THEN Z=TOT+1 ELSE Z=R 

EP 

GOSUB 1280 :: IF REP=0 THEN TO 

T=TOT+1 

GOSUB 1250 

CALL CONT :: ACCEPT AT(24,24)V 

ALIDATE("“ON"“)SIZE(-1):A$ :: IF 
A$="N" THEN 160 ELSE 270 

1*** Modifier ***** 

CALL NET :: CALL NOM :: CALL M 

OD :: GOSUB 1450 

RG$="N" :: IF A=0 THEN CALL NE 

T :: CALL PAS :: CALL ENT :: 

ALL STOP (RG$,A):: GOTO 160 

CALL NET :: RESTORE 1210 

FOR A=3 TO 9 :: READ AS$,XX(A) 

DISPLAY AT(2+22,1):A;"- "“;SEGS 
(A$,1,POS(A$,".",1)-1):D$ (A) 

22=22+3 :: NEXT À 

ZZ=0 :: CALL LIGNE 

ACCEPT AT(24,23)VALIDATE (DIGIT 
)SIZE(1):B :: IF B=0 THEN 660 

ELSE IF B=1 THEN 590 

CALL DON :: ACCEPT AT(24,2)SIZ 

E(-XX(B))BEEP:A$ :: D$(B)=A$ : 
: GOTO 520 

CALL NET :: W=1 :: CALL GR :: 

GOSUB 1480 :: CALL CH2 

ACCEPT AT(24,19)VALIDATE ("0123 
“)SIZE(1)BEEP:B :: IF B=0 THEN 
660 ELSE IF B=1 THEN 650 

IF B=2 THEN CALL AJN ELSE CALL 
EFG 

ACCEPT AT(24,26)S1IZE(1)VALIDAT 

E("“12345678"):A 

1F B=2 THEN A$="O" ELSE A$="N" 
:: GOSUB 1510 :: GOTO 590 

GOSUB 1510 :: GOTO 590 

GOSUB 1280 

CALL MISE :: ACCEPT AT(24,28)S 
1ZE (-1) VALIDATE (“ON*)BEEP:A$ : 
: 1F A$="N" THEN 160 ELSE 210 

CALL NET :: CALL NOM :: CALL E 

FFA :: GOSUB 1450 :: IF A=0 TH 

EN CALL NET :: CALL PAS :: CAL 

L ENT :: CALL STOP (RG$,A):: GO 

TO 160 

D$(1)="E" :: GOSUB 1280 :: CAL 

L AEFF :: ACCEPT AT(24,27)VALI 

DATE (“ON*“)SIZE(-1):A$ 

1F A$="O" THEN 680 ELSE 160 


pe tot 


l* Nom de groupes 

[Rene ess nee eaneeee 

CALL NET :: CALL OPT4 :: CALL 
CHOIX (A) 

IF A<1 OR A>3 THEN 730 

ON À GOTO 760,910,160 

!** Ajouter un groupe ** 

IF NG=8 THEN CALL UTIL :: CALL 
ENT :: CALL STOP(RG$,A):: GOT 

O 160 

CALL NET :: W=0 :: CALL GROUP 
:: GOSUB 1480 :: CALL NOUV 

ACCEPT AT(22,26)VALIDATE (DIGIT 
)SIZE(1)BEEP:A :: IF A=0 THEN 
720 

IF A<1 OR A>8 THEN 780 

Y=1 :: IF G$(A)="" OR G$(A)=" 
“ THEN 840 

CALL REMP :: ACCEPT AT(24,27)V 

ALIDATE (“ON"“)SIZE(-1) :A$ 

IF A$="N" THEN CALL CONT :: GO 

TO 890 

Y=0 :: GOTO 850 

NG=NG+1 

CALL NGR :: DISPLAY AT(24,1):: 
ACCEPT AT(24,2)SIZE(-11):G$ (A 


) 

IF (G$(A)="")+(G$(A)=" “)THEN 
NG=NG-1 

GOSUB 1250 :: IF Y<>1 THEN GOS 
UB 1660 

CALL NET :: CALL CONT 

ACCEPT AT(24,24)VALIDATE ("ON") 
SIZE(-1):A$ :: IF A$="N" THEN 


160 ELSE 760 

l"* Effacer un groupe ** 

IF NG=0 THEN CALL NET :: CALL 
PASG :: CALL ENT :: CALL STOP( 
RG$,A):: GOTO 720 

CALL NET :: W=0 :: CALL GROUP 
:: GOSUB 1480 :: CALL EFG :: À 
CCEPT AT(24,24)VALIDATE(DIGIT) 
SIZE (1):A 

1F A=0 THEN 720 ELSE IF A>8 TH 
EN 920 

IF G$(A)=""* OR G$(A)=" * THEN 
960 

G$(A)=""* :: NG=NG-1 :: GOSUB 1 
250 :: GOSUB 1660 :: CALL NET 
CALL AEFF :: ACCEPT AT(24,27)V 
ALIDATE (“ON“)SIZE(-1) :A$ 

IF A$="O" THEN 910 ELSE 160 
JRPRRSRRSSeRRESN 


tétrete 


l" Recherche 
PRRPERERRRER ENTER 
CALL NET :: CALL OPT3 :: CALL 
CHOIX(A):: IF A<1 OR A>4 THEN 
990 :: X=0 
ON À GOTO 1020,1060,1110,160 
f** Une fiche *"** 
CALL NET :: CALL NOM :: CALL 
AFF :: GOSUB 1450 
IF A=0 THEN CALL NET :: CALL 
PAS :: CALL ENT :: CALL STOP( 
RG$,A):: GOTO 160 
GOSUB 1560 :: IF A=13 THEN DI 
SPLAY AT(24,1):: CALL ATR :: 
ACCEPT AT(23,24)VALIDATE("ON" 
)SIZE(-1)BEEP:A$ :: IF A$="O" 
THEN 990 ELSE 160 
F#* Un groupe *** 
IF NG=0 THEN CALL NET :: CALL 
PAS :: CALL ENT :: CALL STOP 
(RG$,A):: GOTO 160 
CALL NET :: W=0 :: CALL GROUP 
:: GOSUB 1480 :: CALL GAF 
ACCEPT AT(24,24)VALIDATE (DIGI 
T)SIZE(-1):Y :: IF Y-0 THEN 9 
90 ELSE IF Y>8 THEN 1080 
IF G$(Y)="" OR G$(Y)=" * THEN 
1080 ELSE 1120 
l Toutes les fiches * 
X=1 
FOR Z=1 TO TOT 
GOSUB 1270 
IF X<>1 THEN IF SEG$(D$(2),Y, 
1)="N" THEN 1160 
GOSUB 1560 
NEXT Z 
CALL NET :: CALL FIN :: CALL 
ENT :: CALL STOP (RG$,A) 
IF A=13 THEN CALL ATR :: ACCE 
PT AT(23,24)VALIDATE ("ON*)SIZ 
E(-1):A$ :: IF A$="O" THEN 99 
0 
GOTO 160 
CLOSE #1 :: STOP 
RSS 


| ZONE DES DATAS 
CESR 

DATA NOM PRENOM............. 
° 23 

DATA ADRESSE. «cc orsietenterére aie 
+..27, CODE POSTAL.,5,VILLE.. 
RS 

DATA NO TEL.......,12,TITRE., 
D DIVERS à « orales rermiersiarane say 22 
DATA INACTIF, EFFACEMENT 
[RARE EE 


| ZONE S/P OUVERTS 

RE ERES 

TRIS$=STRS (TRI):: TOT$=STRS (TO 
T):: NG$=STRS (NG) 

PRINT #1,REC O:TRIS,TOTS,TITR 
E$,1MP$,G$(1),G$(2),G$(3),G$( 
4),G$(5),G$(6),G$(7),G$ (8) ,NG 
$ :: RETURN 

INPUT #1,REC Z:D$(1),D$(2),D$ 
(3):: RETURN 

INPUT #1,REC Z:D$(1),D$(2),D$ 
(3),D$(4),D$(5),D$(6),D$(7),D 
$(8),D$(9):: RETURN 

PRINT #1,REC Z:D$(1),D$(2),D$ 
(3),D$(4),D$(5),D$(6),D$(7),D 
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$(8),D$(9):: RETURN 

A=0 :: IF TRI=0 THEN 1360 ELS 

E IF TOT THEN I=1 :: J=TRI EL 
SE RETURN 

IF D$(3)="" OR D$(3)=" * THEN 
RETURN 

ZT=INT((I+J)/2):: Z=VAL(PS(ZT 
)):: GOSUB 1260 

IF D$(3)=N$ THEN A=Z :: GOSUB 
1270 :: RETURN 

IF D$(3)<N$ THEN I=Z2T+1 ELSE 
J=2T-1 

IF (ZT<1)+(1>J)=0 THEN 1310 

IF TRI=TOT THEN RETURN 

FOR Z=TRI+1 TO TOT 

GOSUB 1260 

IF D$(3)=N$ THEN A=Z :: GOSUB 
1270 :: RETURN 

NEXT Z :: Z=0 :: RETURN 

A=INT(J/100) 

FOR A=A TO J-A*100 :: READ A$ 
I 

LA 

DISPLAY AT(16,2):A$: :"7?" :: 

CALL SOUND(150,400,10) 

ACCEPT AT(18,2)SIZE(-I):D$ (A) 

NEXT À :: RETURN 

J=303 :: RESTORE 1210 

GOSUB 1400 :: N$=D$(3) 

GOSUB 1290 :: RETURN 

FOR A=1 TO 8 :: DISPLAY AT(7+ 

A,2):A;TAB(6);"-— *“;G$(A):: IF 
W=0 OR SEG$(D$(2),A,1)="N" T 
HEN 1500 

DISPLAY AT(7+A,23):"*"* 

NEXT À :: RETURN 

IF A=1 THEN D$(2)=A$&SEGS$ (D$( 
2)»:2,1)2% GOTO: 1540 

IF A=8 THEN D$(2)=SEG$ (DS (2), 
1,7)&A$ :: GOTO 1540 

D$(2)=SEG$ (D$(2),1,A-1)&A$&SE 
G$(D$(2),A+1,8-A) 

IF D$(1)="E" THEN RETURN ELSE 
IF D$(2)=GROUP$ THEN D$(1)=" 
1" :: RETURN ELSE D$(1)="A" : 
: RETURN 

CALL NET :: DISPLAY AT(2,1):D 
$(8):D$(3): :D$(4):D$(5);" "> 
D$(6):D$(7) :D$ (9) 

C=0 :: IF D$(1)="1" THEN 1610 

FOR A=1 TO NG :: IF SEGS$ (D$ (2 
),A,1)="N" THEN 1600 

DISPLAY AT(14+C,18):G$(A):: C 
=C+1 

NEXT A 

IF D$(1)="A" THEN 1650 

RESTORE 1240 

IF D$(1)="1" THEN READ A$ ELS 
E READ A$ :: READ A$ 

DISPLAY AT(1,18):A$ 

CALL BACK :: RG$="O" :: C 
STOP (RG$,A):: RG$="N" :: IF À 
=13 THEN RETURN ELSE Z=TOT+1 
:: RETURN 

IF TOT THEN CALL NET :: CALL 
MOM :: AS$="N* ELSE RETURN 
FOR Z=1 TO TOT :: GOSUB 1270 
:: IF D$(1)="E" OR SEGS$ (D$ (2) 
A,1)=A$ THEN 1690 

GOSUB 1510 :: GOSUB 1280 

NEXT Z :: RETURN 


| ZONE S/P FERMES 


SUB BACK :: DISPLAY AT(24,7): 
“<ENTER OÙ BACK>" :: SUBEND 
SUB OPT4 :: DISPLAY AT(5,7):" 
NOMS DE GROUPES"*:TAB(7);"---- 
: :TAB(6);"1.AJ 
OUTER UN NOM“ 
DISPLAY AT(11,5):TAB(6);"2.EF 
FACER UN NOM“: :TAB(6);"3.RET 
OUR" :: SUBEND 
SUB TIT :: DISPLAY AT(9,11):" 
TI 99/4A": : :TAB(6); “GESTION 
DU FICHIER":TAB(6);"*-------- 
ee..." :3: SUBEND 
SUB ENT :: DISPLAY AT(23,5):" 
Appuyez sur <enter>* :: SUBEN 
D 


SUB OPTI1 :: DISPLAY AT(3,5):" 
OPTIONS DU FICHIER":TAB(5);"- 


notions mn": : :TAB(S5) 
;"“1.MISE À JOUR": :TAB(5);"2. 
NOMS DE GROUPES" 
DISPLAY AT(11,5):"3.RECHERCHE 
“: :TAB(5):"4.SORTIE®" :: SUBE 
ND 
SUB CHOIX(A):: DISPLAY AT(23, 
6)BEEP:"VOTRE CHOIX ?* :: ACC 
EPT AT(23,20)SIZE(1):A :: SUB 
END 
SUB RIEN :: DISPLAY AT(7,2):" 
LES DONNEES NE SONT PAS": :" 
SUR CETTE DISQUETTE !*: : : 
: TAB (9) ; "OPTIONS" :TAB(9);"--- 


DISPLAY AT(17,7):"*1.AUTRE ESS 

Al": :TAB(7);"2.SORTIE" :: SU 

BEND 

SUB OPT3 :: DISPLAY AT(5,8):"* 

RECHERCHE" :TAB(8);" : 
: : :TAB(7);"1.UNE FICHE": 

AB(7);"2.UN GROUPE"* 

DISPLAY AT(13,7):"3.TOUT LE F 

ICHIER"“: :TAB(7);"4.RETOUR" : 
: SUBEND 

SUB OPT2 :: DISPLAY AT(5,8):"* 

MISE A JOUR":TAB(8);"* 

-—--": :TAB(8);"1.AJOUTER": 

AB(8);"2.MODIFIER" 

DISPLAY AT(12,8):"3.EFFACER": 
:TAB(8);"4.RETOUR" :: SUBEND 

SUB TITRE :: DISPLAY AT(16,2) 
:"TITRE.*: :"2* :: SUBEND 

SUB DONNE :: DISPLAY AT(4,2): 

“"RENTREZ LES DONNEES": :"QUE 

VOUS VOULEZ" :: SUBEND 

SUB NOM :: DISPLAY AT(4,2):"R 

ENTREZ LE NOM DE LA“: 

ONNE QUE VOUS VOULEZ" 

ND 

SUB AJOUT :: DISPLAY AT(8,2): 

"AJOUTER." :: SUBEND 

SUB MOD :: DISPLAY AT(8,2):"M 

ODIFIER." :: SUBEND 

SUB EFFA :: DISPLAY AT(8,2):" 

EFFACER." :: SUBEND 


SUB AFF :: DISPLAY AT(8,2):"A 


FFICHER." :: SUBEND 

SUB GROUP :: DISPLAY AT(5,5): 

“GROUPES SUR FICHIER":TAB(5); 

Manmmmmmmnns mm =" 3: SUBE 

ND 

SUB NOU :: DISPLAY AT(2,4):"I 

NDIQUEZ PAR (O/N) LE": :" GRO 

UPE DANS LEQUEL METTRE": :" 
LE NOUVEAU NOM." :: SUBEND 

SUB CONT :: DISPLAY AT(24,1): 

“VOUS CONTINUEZ (O/N)?20" :: 
SUBEND 

SUB MISE :: DISPLAY AT(24,1): 

"UNE AUTRE MISE A JOUR(O/N)?20 

“_:: SUBEND 

SUB AEFF :: DISPLAY AT(24,2)B 

EEP : "AUTRE MODIFICATION (O/N) 

20" :: SUBEND 

SUB PLEIN :: DISPLAY AT(12,2) 

: "DESOLE LE FICHIER EST PLEIN 

“ :: SUBEND 

SUB PAS :: DISPLAY AT(12,3):" 

CETTE PERSONNE N'EST PAS": :" 
SUR FICHIER" :: SUBEND 

SUB DEJA :: DISPLAY AT(22,2): 

"PERSONNE DEJA SUR FICHIER* : 

: SUBEND 

SUB AUTRE :: DISPLAY AT(24,2) 

BEEP :* CHANGEMENT (O/N)? N 

“ :: SUBEND 

SUB EFF :: DISPLAY AT(23,2)BE 

EP:"ET MARQUEE EFFACEMENT":"* 

REINTRODUCTION (O/N)?2* :: SUB 

END 

SUB INAC :: DISPLAY AT(23,2)B 

EEP:"*ET MARQUEE INACTIVE" :: 

SUBEND 

SUB GR :: DISPLAY AT(2,1):" 

GROUPE MEMBRE" :: 

SUBEND 

SUB CH2 :: DISPLAY AT(20,1):" 
1 POUR INCHANGE“:" 2 POUR 

AJOUTER À UN GROUPE":" 3 POU 

R EFFACER D'UN GROUPE": :" 

VOTRE CHOIX 2" :: SUBEND 


SUB AJN :: DISPLAY AT(24,2):"* 
AJOUTER À QUEL NO ?* :: SUB 
END 
SUB PASG :: DISPLAY AT(12,2): 
“AUCUN GROUPE SUR FICHIER"“:"* 
SUBEND 
SUB NOUV :: DISPLAY AT(22,6): 
"NOUVEAU GROUPE No ?" :: SUBE 
ND 
SUB REMP :: DISPLAY AT(24,2): 
“REMPLACEMENT GROUPE O/N? O" 
:: SUBEND 
SUB NGR :: DISPLAY AT(22,2):"* 
NOM DU NOUVEAU GROUPE ?2"“:" 
“_:: SUBEND 
SUB UTIL :: DISPLAY AT(23,2): 
"LES 8 GROUPES SONT UTILISES"* 
:: SUBEND 
SUB EFG :: DISPLAY AT(24,2):" 
NO GROUPE A EFFACER 2?" :: SUB 
END 
SUB MOM :: DISPLAY AT(12,2):" 
MODIFICATION EN COURS": :* UN 
MOMENT SVP..." :: SUBEND 
SUB LIGNE :: DISPLAY AT(23,2) 
BEEP : “NO DE LA LIGNE A CHANGE 
R“:" 1 POUR INCHANGE F7 -31 
SUBEND 
SUB DON :: DISPLAY AT(23,2):" 
NOUVELLE DONNEE":"?" :: SUBEN 
D 
SUB GAF :: DISPLAY AT(24,1):" 
GROUPE A AFFICHER ?* :: SU 
BEND 
SUB FIN :: DISPLAY AT(12,7):" 
FIN DU FICHIER":TAB(7);" 
:: SUBEND 
SUB ATR :: DISPLAY AT(23,2):" 
AUTRE RECHERCHE? (O/N)N" :: S 
UBEND 
SUB STOP (RG$,A) 
CALL SOUND(150,800,0) 
CALL KEY (0,A,B):: IF NOT B TH 
EN 2190 :: IF A<>13 AND(A=15) 
* (RG$="O")=0 THEN 2180 
SUBEND 
SUB NET :: CALL VCHAR(1,3,32, 
672):: SUBEND 


Trier le fichier 


Aussitôt que vous avez une 
dizaine de fiches, classez-les par 


ordre 


alphabétique. Ce 


programme va créer un index qui 
permettra aux autres programmes 
d'aller chercher les informations 


alphabétiquement et 


vous 


pourrez, en option, effacer des 
fiches. Utilisez-le fréquemment, 
ilest en plus assez rapide. 


Programme "TRIER" 


10 
20 
30 
40 
50 


60 


70 
80 
90 


Basic Etendu 


peser 


TRI ALPHABETIQUE FICHIER 


peine 


DIM G$(8),D$(9),P$(450),S$(450) 
CALL CLEAR :: CALL COLOR(13,7,7 
):: CALL SCREEN(7) 

CALL VCHAR(1,31,128,96):: FOR A 
=1 TO 12 :: CALL COLOR(A,5,12): 


NEXT A 


CALL TITRE :: CALL ENT :: 

STOP 

DISPLAY AT(23,6):"UN INSTANT SV 
Phusvsre 

OPEN #1:"DSK1.",INPUT ,RELATIVE 
» INTERNAL 


100 INPUT #1:T$ :: IF T$="DONNEES" 


THEN 140 ELSE IF T$<>"*"* THEN 


100 





‘:)') MAGAZINE n° 


CLOSE #1 :: CALL NET 
IEN 

ACCEPT AT(23,22)VALIDATE("“12"*) 
sT 

IF T=1 THEN 80 ELSE END 

CLOSE #1 

OPEN #1:"DSK1.DONNEES",RELATIV 
E,INTERNAL,FIXED 127 

INPUT #1:TRI$,TOTS$S, TITRES, IMP$ 
,G$(1),G$(2),G$(3),G$(4),G$ (5) 
1G$(6),G$(7),G$(8),NG$ :: TRI= 
VAL(TRIS$):: TOT=VAL(TOTS) 

CALL NET 

IF TOT=0 THEN DISPLAY AT(16,2) 
: "PAS DE DONNEES SUR FICHIER": 
OR RRRRRRRRRÉRRÉRRRRRRRRÉRRRARARN 
:: CLOSE #1 :: CALL ENT :: CAL 
L STOP :: END 

DISPLAY AT(6,8):"OPTIONS DE TR 
I":TAB(8); "nm mn & 
DISPLAY AT(10,2):"1-SUPPRIMER 
LES EFFACEMENTS": 5" 2=EFFAC 
EMENTS ET INACTIFS*: s® 3-AU 
CUNE SUPPRESSION" 

DISPLAY AT(22,6)BEEP:"VOTRE CH 
OIX ?2* :: ACCEPT AT(22,21)SIZE 
(1) VALIDATE("123"):Y :: IF Y=3 
THEN GOSUB 660 :: GOTO 400 


pererenenesemmententies 


:: CALL R 


l'Routine d'effacement 


ferepse SARA Er en ere 

CALL NET :: CALL OP :: 

P :: CALL DON(TOT) 

DISP,C=0 

C=C+1 :: IF C>TOT THEN GOSUB 6 
60 :: GOTO 400 

Z=C :: GOSUB 670 

IF D$(1)="E" OR(D$(1)="1" AND 
Y=2) THEN 310 

IF DISP THEN Z=C-DISP :: GOSUB 
690 :: GOTO 270 ELSE 270 

IF TOT>TRI OR C<>TOT THEN 340 

DISP=DISP+1 

IF C<=TRI THEN TRI=TRI-] ELSE 

270 

Z=TOT :: 
1 

1F D$(1)="E" 

Y=2)THEN 310 
Z=C :: GOSUB 690 :: 


JÉRPEREERERRERERRARARRE 


CALL DE 


GOSUB 680 :: TOT=TOT- 


OR(D$(1)="I" AND 


GOTO 270 


l* Routine de triage 

| adore tr vmerts is 

CALL NET :: CALL OP :: 
1 :: CALL DON(TOT) 

FOR Z=1 TO TOT 

INPUT #1,REC Z:D$(1),D$(2),D$( 
3) 

S$(Z)=SEGS (D$(3),1,4)&SEGS$ (D$( 
3),POS(D$(3)," “,1)+1,1):: PS$( 
Z)=STRS (Z) 

NEXT Z :: G=1 

G=3*G+1 :: IF G<TOT THEN 450 
G=INT(G/3) 

FOR 1=G TO TOT :: 
S1$=S$ (I) 

FOR J=I-G TO 1 STEP -G :: P2$-= 
PS(J):: S2$=SS$(J) 

IF S1$>=S2$ THEN 510 
PS$S(J+G)=P2$ :: S$(J+G)=S2$ :: 
NEXT J 
P$(J+G)=P1$ :: 
NEXT I 

IF G>1 THEN 460 


peéseseseeseneenenennte 


l‘Enregistrement index 

pese nnearesen 

CLOSE #1 

OPEN #3:"DSK1.INDEX", OUTPUT, IN 
TERNAL,FIXED 4 
FOR I=1 TO TOT :: 
1):: NEXT I 
CLOSE #3 

DISPLAY AT(23,2):"INDEX ENREGI 
STRE. <ENTER>" 

CALL STOP :: END 


lit hais do 


F Sous programmes 


FERA ÉAR RER ANEAR ES 


TOT$=STRS (TOT) : : 


CALL TR 


P1$=P$(I):: 


S$(J+G)=S1$ 


PRINT #3:P$( 


PRINT #1,REC 


‘)‘) MAGAZINE n° 9 


0:TOT$, TOT$,TITRES, IMP$,GS$ (1), 
G$(2),G$(3),G$(4),G$(5),G$(6), 
G$(7),G$(8),NG$ :: RETURN 
INPUT #1,REC Z:D$(1):: RETURN 
INPUT #1,REC Z:D$(1),D$(2),D$( 
3),D$(4),D$(5),D$(6),D$(7),D$( 
8),D$(9):: RETURN 
PRINT #1,REC Z:D$(1),D$(2),D$( 
3),D$(4),D$(5),D$(6),D$(7),D$( 
8),D$(9):: RETURN 
SUB TITRE :: DISPLAY AT(9,10): 
“TI 99/4A": :TAB(5);* TRI ALPH 
ABETIQUE “: :TAB(6);" PAR IND 
EXATION “ :: SUBEND 
SUB ENT :: DISPLAY AT(23,6):"*A 
PPUYEZ SUR ENTER" :: SUBEND 
SUB RIEN :: DISPLAY AT(9,1)BEE 
P:" PAS DE FICHIER SUR DISQUE" 
:TAB (7) ; *“OPTIONS": : . 

NOUVEL ESSAI": :* 2. SORTIE" 

730 DISPLAY AT(23,7):"VOTRE CHOIX 
2* :: SUBEND 

740 SUB OP :: DISPLAY AT(8,5):"OPE 
RATION EN COURS":TAB(5);"----- 

:: SUBEND 

750 SUB STOP 

760 CALL SOUND(150,400,0) 

770 CALL KEY(0,A,B):: IF NOT B THE 
N 770 :: IF A<>13 THEN 760 

780 SUBEND 

790 SUB NET :: CALL VCHAR(1,3,32,6 
72):: SUBEND 

800 SUB DON(TOT):: CALL SOUND(150, 

800,0):: DISPLAY AT(18,3):"LE NB D 
ES DONNEES VA DE:*: :" 
“31;*" À “;TOT :: SUBEND 

810 SUB DEP :: DISPLAY AT(16,10):" 
AU DEPART" :: SUBEND 

820 SUB TRI :: DISPLAY AT(16,9):"*P 
OUR LE TRI" :: SUBEND 


Imprimer le fichier 


Vous pouvez imprimer une fiche, 
un res de fiches ou la totalité 
du fichier. Vous pouvez imprimer 
un fichier organisé sous forme de 
colonnes. Le programme utilise 
une imprimante avec des 
caractères condensés (136/ligne), 
cela permet d'afficher la totalité 
des informations sur une ligne. 
Dans le cas d'une imprimante 
sans caractères condensés, il 
faudra modifier les lignes 490 à 
500, 610 et 660, puis afficher sur 
2 lignes chaque fiche ou bien se 
restreindre. Vous pouvez 
imprimer des étiquettes 
d'adresses. De nombreux 
paramètres vous permettront de 
centrer votre étiquette au mieux. 
J'utilise pour ma part, deux 
étiquettes de front (cas le plus 
courant) et les paramètres que 
j'utilise sont stockés à la ligne 
110. Faites de même quand vous 
aurez déterminé les vôtres. Une 
étiquette modèle est imprimée 
pour déterminer le format maxi de 
vos données. Toutes les 
spécifications de l'imprimante qui 
sont employées dans les 


Variables utilisées 


Enregistrement 0 


TRI$ 
TOT$ 
TITRES 
IMP$ 
D$(1 à 8) 
NG$ 


Option titre 


Enregistrements triés 
Nb total de fiches 


Nom de l'imprimante 
noms des 8 groupes 
Nb de groupes utilisés 


Nombre d'octets 


3+1 
3 +1 
1+1 
16 + 1 
88 + 8 
3 +1 


Les variables numériques TRI, TOT, NG, sont stockées en 
tant que chaîne pour qu'elles n'occupent que 3 octets maximum 
(nb de 3 chiffres), au lieu de 8 pour une variable numérique. 


Autres enregistrements 


D$(1) 
D$(2) 


A (actif) ou I (inactif) ou E (effacement) 
8 "N"' ou "O" selon que la personne se situe ou non 


dans un des 8 groupes. Par exemple "ONONNNNN" 
pour une personne faisant partie des groupes 1 et 8. 


*D$(3) 
D$(4) 
D$(5) 
D$(6) 
D$(7) 
D$(8) 


Nom, Prénom 
Adresse 

Code postal 
Ville 

Titre 

Divers 
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différents programmes sont 
expliquées dans le programme 
TITRER EN GROS. 


Programme "IMPRIMER" 
Basic étendu 


5 pérennes 


6 !* IMPRIMER LE FICHIER 


7 proesereessensenressaseee 


10 
20 
30 
40 
50 
60 
70 
80 
90 


100 
110 


120 
130 
140 


150 


160 
170 


ON WARNING NEXT :: 
1 :: ON BREAK NEXT 
DIM G$(8),D$(9),ETIQ$(4,3),PS$(4 
50) 
INACTIFS$="N" :: BLANC$S=RPTS$(" * 
,40) 
CALL CLEAR :: CALL SCREEN(7) 
CALL COLOR(13,7,7) 
CALL VCHAR(1,31,129,96) 
FOR I=1 TO 12 
CALL COLOR(1I,5,12) 
NEXT I 
CALL TITRE :: CALL ENT 
NCOL=80 :: LARG=36 :: ESP=5 :: 
NBET=2 :: DEP,NREPS, RECNO, ENR 
=1 
CALL STOP 
DISPLAY AT(23,6):"UN INSTANT S 
VPsses" 
OPEN #1:"DSK1.",INTERNAL, RELAT 
IVE, INPUT 
INPUT #1:T$ :: IF T$="DONNEES" 
THEN 190 ELSE IF T$<>"* THEN 
150 
CLOSE #1 
IEN 
DISPLAY AT(23,6):"VOTRE CHOIX 
2“ :: ACCEPT AT(23,20)VALIDATE 
("12")SIZE(1):T 


OPTION BASE 


:: CALL NET :: CALL R 


180 IF T=2 THEN 900 ELSE 130 
190 CLOSE #1 


200 GOSUB 920 
210 CALL NET 


:: GOSUB 1850 
:: CALL DISP (IMP$) 


220 ACCEPT AT(14,22)VALIDATE (“ON“) 


SIZE(-1):A$ 


230 IF A$="N" THEN 250 


240 RESTORE 2020 :: 


READ A$ :: 
GOSUB 940 


INP 
UT A$:IMP$ :: 


250 CALL NET :: CALL OPT 
260 DISPLAY AT(23,6)BEEP:"*VOTRE CH 


OIX ?* :: ACCEPT AT(23,20)SIZE 
(1) VALIDATE("“1234"):A 


270 ON À GOTO 290,450,710, 900 


275 pprersaareneesenséenses 


280 | Toute information 


285 pretessoneseeesenpassess 


290 OPEN #9:1MP$, OUTPUT :: 


300 CALL NET :: 
310 PRINT #9:* 


OSUB 1 
450 

CALL IMP 

FICHIER D'ADRESSES 


320 FOR RECNO=1 TO TOT :: GOSUB 97 


0 


330 IF M<=12 THEN 410 
340 IF TITRE$="O" THEN PRINT #9:D$ 


(8) 


350 PRINT #9:D$(3):D$(4):D$(5);" * 


:D$ (6) :D$ (7) :D$ (9) 


360 PRINT #9 


370 FOR I=1 TO 8 :: 


IF SEG$(D$(2), 
1,1)="N" THEN 390 


380 PRINT #9:TAB(5);G$(I) 

390 NEXT I 

400 PRINT #9 

410 NEXT RECNO 

420 GOSUB 1620 

430 CLOSE #9 :: GOTO 250 

440 

445 

450 OPEN #9:1IMP$&".CR", OUTPUT :: G 


460 INPUT “TITRE ET DATE: 


OSUB 1450 
“:DAS$ :: 


CALL NET :: CALL IMP 


470 PRINT #9:DA$;CHR$ (10) ;CHR$ (10) 


480 RESTORE 2030 :: 


READ A$,A1$,A2 
$,A3$,A4$ 


490 PRINT #9:CHR$ (27); "C"*;CHR$ (16) 


:"004";A$; 

PRINT #9:CHR$(16);"033"*;A1$;CH 
R$(16) ; "066" ;A2$;CHR$ (16) ; "090 
“:A3$;CHR$ (16); "105";A4$;CHRS$( 
10) 

READ A$,A1$,A2$,A3$,A4$ 

PRINT #9:CHR$(16);"004";A$; 

PRINT #9:CHR$(16);"033";A1$;CH 
R$(16);"066";A2$;CHR$ (16) ; “090 
“;:A3$;CHR$ (16); "“105";A4$;CHR$ ( 
10) 

DISPLAY AT(20,2):"VERIFIEZ L'A 
LIGNEMENT": :"* 

<ENTER>" 

ACCEPT AT(22,24):A$ :: DISPLAY 
AT(20,2):: DISPLAY AT(22,10): 
: A=0 

FOR 1I=1 TO TRI :: 
(1)) 

PRINT #9:CHR$(24):: GOSUB 970 
IF M<12 THEN 620 

A=A+1 

PRINT #9,USING “### “:A;:: PRI 

NT #9:D$(3); 

PRINT #9:CHR$(16);"033"*;D$(4); 
CHR$ (16); "066";D$(5);" “:D$( 
6) ; CHRS (16) ; “090*;D$ (7); CHRS (1 
6);"105";D$(9);CHR$ (10) 

NEXT I 

IF TOT=TRI THEN 680 

FOR RECNO=TRI+1 TO TOT :: PRIN 
T #9:CHR$(24):: GOSUB 970 :: I 
F M<12 THEN 670 :: A=A+1 

PRINT #9,USING “### “:A;:: PRI 
NT #9:D$(3); 

PRINT #9:CHR$(16);"033*;D$(4); 
CHR$ (16); "066";DS$(5);" “":D$( 
6) ; CHR$ (16); “090*;D$ (7); CHR$ (1 
6);"105";D$(9);CHR$ (10) 

NEXT RECNO 

GOSUB 1620 

A=0 :: PRINT #9:CHR$(27);"*N" : 
: CLOSE #9 :: GOTO 250 


jrsrenpenesantenentence 


Impression d'etiquette 
FPRPPAENERRRORErOReEERRE 

OPEN #9:IMPS$,OUTPUT :: GOSUB 1 
450 

RESTORE 1910 :: CALL NET 
DISPLAY AT(3,1):"------- 
mms"; " OPTIONS DE 
MISE EN PLACE":" DES ETI 
QUETTES "3 "mm mm 


RECNO=VAL (P$ 


ee me me me me me mu 


DISPLAY AT(11,1)BEEP:"* CARACTE 

RES GRAS (O/N)? O* :: ACCEPT A 
T(11,25)VALIDATE (“ON*)SIZE(-1) 
:A$ :: IF A$="O*" THEN EP$="#" 
ELSE EP$="N" 

MOINS=32 :: PLUS=132 :: VAR=NC 
OL :: GOSUB 1770 :: NCOL=VAR 

MOINS=1 :: PLUS=4 :: VAR=NBET 
:: GOSUB 1770 :: NBET=VAR 

MOINS=0 :: PLUS=5 :: VAR=DEP : 
: GOSUB 1770 :: DEP=VAR 

MOINS=28 :: PLUS=40 :: VAR=LAR 
G :: GOSUB 1770 :: LARG=VAR 

IF NBET*LARG<=NCOL-NBET*DEP TH 
EN 810 

CALL NET :: CALL TROP :: CALL 
ENT :: CALL STOP :: GOTO 720 

MOINS=1 :: PLUS=20 :: VAR=NREP 
S :: GOSUB 1770 :: NREPS=VAR 

MOINS=0 :: PLUS=10 :: VAR=ESP 
:: GOSUB 1770 :: ESP=VAR 

GOSUB 1150 :: CALL NET 

CALL IMP :: FOR RECNO=1 TO TOT 
:: GOSUB 970 :: GOSUB 1680 :: 
NEXT RECNO 

IF ENR=1 THEN 890 

FOR J=ENR TO NBET 

FOR K=1 TO 3 :: ETIQ$(J,K)="" 
:: NEXT K 

NEXT J :: GOSUB 1320 

PRINT #9:CHR$(27);"$" 
#9 :: GOTO 250 

CLOSE #1 :: END 

HORREUR) 

! s/p lect/enr fichier 

'ERRERRERRRREES 

OPEN #1:"“DSK1.DONNEES",RELATIV 


:: CLOSE 


$(5),G$(6),G$(7),G$ (8) ,NG 


E,INTERNAL,FIXED 127 

INPUT #1,REC 0:TRI$,TOT$, TITRE 

$,1MP$,G$(1),G$(2),G$(3),G$ (4) 

,G$(5),G$(6),G$(7),G$ (8) ,NG$ 

TRI=VAL(TRIS$):: TOT=VAL(TOT$): 
: NG=VAL(NG$):: RETURN 

TRIS$=STRS$ (TRI):: TOT$=STR$ (TOT 
:: NG$=STRS$ (NG) 

PRINT #1,REC O:TRI,TOT,TITRES, 

IMP$,G$(1),G$(2),G$(3),G$(4),G 


:: R 


ETURN 
950 Îs/p saisie+tri enreg. 


955 | 


960 RECNO=VAL (PTS (Y)) 
970 INPUT #1,REC RECNO:D$(1),D$(2) 


’ 


980 CALL KEY(0,K,S):: 


D$(3),D$(4),D$(5),D$(6),D$(7) 
D$ (8) ,D$ (9) 
IF NOT S THE 


N 1070 
990 IF K=15 THEN RECNO=TOT+1 :: RE 
TURN 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


1110 
1120 


1130 
1135 
1140 
1145 
1150 


1160 


1170 
1180 
1190 
1200 
1210 


1220 
1230 
1240 
1250 
1260 
1270 


1280 
1290 
1295 
1300 
1305 
1310 


1320 


1330 
1340 
1350 


1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1435 
1440 
1445 
1450 
1460 


1470 
1480 


1490 
1500 


IF K<>32 THEN 1070 

CALL SCREEN(11) 

CALL KEY(0,K,S) 

IF (S=1)*(K=32) THEN 1060 

CALL SOUND(-1,1000,12) 

GOTO 1020 

CALL SCREEN (7) 

M=1 

IF D$(1)="E" THEN RETURN 

IF INACTIF$="N" THEN 1110 

IF D$(2)="NNNNNNNN* THEN M=13 
:: RETURN 

FOR M=1 TO NG 

IF SEG$(D$(2),M,1)=SEGS$ (GROUP 

$,M,1)THEN M=12 

NEXT M :: RETURN 

L 

{Format de l'etiquette 

mme 

CALL NET :: CALL METTRE :: CA 

LL ENT :: CALL STOP 

RESTORE 1990 :: FOR I=1 TO 3 
:: READ ETIQ$ (1,1) 

ETIQ$(2,1)=ETIQ$ (1,1) 

ETIQ$(3,1)=ETIQ$(1,1) 

ETIQ$(4,1)=ETIQ$ (1,1) 

NEXT I 

ON NBET GOTO 1250,1240,1230,1 

220 

GOSUB 1310 

GOSUB 1310 

GOSUB 1310 

GOSUB 1310 

CALL ALIGN 

ACCEPT AT(23,26)VALIDATE (“ON* 

)SIZE(-1):A$ 

IF A$="N" THEN 1210 

RETURN 


pe 


IRoutine d'impression 

Pieces 

IF NBET>ENR THEN ENR=ENR+1 
RETURN 

PRINT #9:CHR$(27);EP$ :: DEP$ 
=RPT$("* “,DEP) 

FOR I=1 TO 3 

FOR J=1 TO NBET 

PRINT #9:DEPS$&SEGS$ (ETIQS (J,1) 
&BLANCS$, 1, LARG) ; 

NEXT J 

NEXT I 

PRINT #9 

ENR=1 

FOR I=1 TO ESP 

PRINT #9 

NEXT 1 

RETURN 

bn ssess 


Choix groupes a impr. 
RE 
RESTORE 1970 :: CALL NET 

IF NG=0 THEN GROUP$="00000000 
“ :: GOTO 1570 

READ A$ :: DISPLAY AT(7,1):A$ 


se ee en ms me se os oo do do De me 


READ A$ :: GROUP$="" 
FOR I=1 TO 8 
IF (G$(1)="")+(G$(1)=" “)THEN 
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1540 
DISPLAY AT(9+1I,3)BEEP:G$(1);T 
AB (15);A$ 
ACCEPT AT(9+1, 20) VALIDATE (“ON 
“)S1ZE(-1) :GR$ 
IF GR$="O" THEN 1550 
GR$="0" 
GROUP $=GROUP $&GR$ 
NEXT I 
DISPLAY AT(10+1,3):"INACTIFS"* 
; TAB (15) ;"(O/N)N* 
ACCEPT AT(10+1I,20)VALIDATE (“O 
N*“)SIZE(-1):INACTIFS$ 

IF INACTIF$="O" THEN RETURN 
IF GROUP$="00000000"* THEN 250 


RESTORE 2050 :: READ A$,B$ 

PRINT #9:CHR$(10);CHR$ (10) 

PRINT #9:" "“;A$;CHRS$(10);"* 
“";:B$ 

PRINT #9:CHR$ (10) ;CHR$ (10) 


! Impression etiquette 

SES 

IF M<12 THEN RETURN 

FOR K=1 TO NREPS 

ETIQ$ (ENR,1)=D$(8)&" "&D$(3) 

ETIO$ (ENR, 2)=D$ (4) 

ETIQ$ (ENR,3)=D$(5)&" "&D$(6) 

GOSUB 1310 

NEXT K 

RETURN 

messes = 

ISaisie options etiq 

READ A$,T$,B$ :: DISPLAY AT(1 

1,2):A$: : :TAB(2);VAR: : :T$ 

ACCEPT AT(17,23)VALIDATE (“"ON" 

) SIZE (-1)BEEP:A$ 

IF A$="N" THEN 1830 

DISPLAY AT(23,1):B$ 

ACCEPT AT(23,25)S1IZE(-3)VALID 

ATE (DIGIT)BEEP : VAR 

IF VAR<MOINS OR VAR>PLUS THEN 
1810 

CALL NET2 :: RETURN 

ER 

! Fichier index 


OPEN #3:"DSK1.INDEX", INTERNAL 
, INPUT ,FIXED 4 

FOR I=1 TO TRI 

INPUT #3:P$(I) 


DATA “NB DE COLONNES MAXIMUM" 
," MODIFICATION (O/N)? N°," 
NOUVEAU NOMBRE (32-132)?" 

DATA “NB D'ETIQUETTES PAR LIG 

NE*," MODIFICATIONS (O/N)? N“ 
#”" NOUVEAU NOMBRE (1-4) ? * 

DATA “MARGE DE GAUCHE*,* MODI 
FICATIONS (O/N)? N“,* NOUVEAU 
NOMBRE (0-5) 2" 

DATA “LARGEUR DE L'ETIQUETTE"* 
," MODIFICATIONS (O/N)? N“,"N 
OUVELLE LARGEUR (28-40) 2" 

DATA “NB DE CHAQUE EXEMPLAIRE 
“," MODIFICATIONS (O/N)? N“," 
NOUVEAU NOMBRE (1-20)7?* 

DATA “ECCART ENTRE ETIQUETTES 
“,* MODIFICATIONS (O/N)? N"," 
NOUVEAU NOMBRE (0-10)72* 

DATA “ GROUPES A IMPRIMER" 

DATA (O/N)O 

DATA “TITRE..NOM...PRENOM.... 

DATA “ADRESSE........ 

DATA “CODE.POSTAL....VILLE... 


DATA “ NOUVEAU DISPOSITIF ? “ 
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DATA “NOM PRENOM", ADRESS 


MPRESSION 

ER 

| s/programmes fermes 

D rence 

SUB TITRE :: DISPLAY AT(9,10) 

:"TI 99/4A": :TAB(4);"IMPRESS 

ION DU FICHIER":TAB(4);"----- 

:: SUBEND 

SUB ENT :: DISPLAY AT(23,6):" 

APPUYEZ SUR ENTER" :: SUBEND 

SUB RIEN :: DISPLAY AT(8,2):" 

PAS DE FICHIER SUR DISQUE": : 
:TAB(9);"OPTIONS": : :" 

1. NOUVEL ESSAI": :" 2. S 

ORTIE" :: SUBEND 

SUB OPT :: DISPLAY AT(6,4):"O 

PTIONS D'IMPRESSION":TAB(4);" 


me ee ve vue vue moe mue vos ee on me ds de me me ms de de 


BISPLAY AT(10,3):"1. TOUT LE 

FICHIER": :TAB(3);"2. FICHIER 
ORGANISE": :TAB(3);"3. ETIQU 

ETTES*: :TAB(3);"*4. SORTIE" : 
: SUBEND 

SUB TROP :: DISPLAY AT(11,6): 
“LIGNE D'IMPRESSION“: :TAB(9) 
; "TROP LONGUE“ :: SUBEND 

SUB METTRE :: DISPLAY AT(8,5) 
: "METTEZ LES ETIQUETTES*: :* 

SUR L'IMPRIMANTE"* 

END 

SUB ALIGN :: DISPLAY AT(23,2) 
: "ALIGNEMENT CORRECT (O/N) 20" 
:: SUBEND 

SUB DISP(IMP$):: DISPLAY AT(8 
»1):* DISPOSITIF D'IMPRESSION 
“: : :TAB(3);IMP$ 

DISPLAY AT(14,1)BEEP:"* MODIFI 
CATIONS (O/N)?N* :: SUBEND 
SUB IMP :: DISPLAY AT(12,1):"* 
L'IMPRESSION EST EN COURS":" 
: SUBEND 

SUB NET :: CALL VCHAR(1,3,32, 
672) :: SUBEND 

SUB STOP 

CALL SOUND(150,800,8) 

CALL KEY(0,K,S):: IF NOT S TH 

EN 2200 ELSE IF K<>13 THEN 21 
90 

SUBEND 

SUB NET2 :: 

EP 3 :: 

TE ti 


FOR I=11 TO 23 ST 
DISPLAY AT(I,1):: NEX 
SUBEND 


Recherche sur un 
fichier 


Vous pouvez afficher la totalité 
des noms en appuyant seulement 
sur <enter> à la question <début 
du nom à rechercher> sinon, le 
programme affichera tous les 
noms commençant par la (ou les) 
lettre(s) choisie(s) (6 maximum). 
Ce programme, comme les 
autres, tourne plus rapidement si 
le fichier est classé 
alphabétiquement par index. 


Programme 
"RECHERCHER" 


Basic étendu 


5 pes tététététététtéttetté 


6 | PROGRAMME DE RECHERCHE 


7 jones 


10 
20 
30 
40 


50 
60 


70 


CALL TITRE :: 


ON BREAK NEXT 
CALL CLEAR 

DIM P$(450),D$ (4) 
CALL SCREEN(7):: 
11,1) 

CALL VCHAR(1,31,129,96) 
FOR A=1 TO 12 :: 


CALL COLOR(13, 


CALL COLOR(A,5 
12):: NEXT À 


CALL ENT :: CALL 


STOP (K) 


80 


DISPLAY AT(23,6):"UN INSTANT SV 


PP..." 


90 


OPEN #1:"DSK1.",RELATIVE, INTERN 


AL, INPUT 


100 
110 


120 
130 


140 


150 
160 
170 


180 
190 


200 
210 
220 
230 
240 


250 
260 
270 


290 
300 


310 
320 


330 
340 
350 
360 
370 


380 
390 
395 
400 


INPUT #1:T$ 

IF T$="DONNEES* THEN 160 ELSE 
IF T$<>"* THEN 100 

CLOSE #1 

CALL NET :: CALL RIEN :: CALL 

CHOIX À 

ACCEPT AT(22,22)SIZE(-1)VALIDA 

TE("“12*)BEEP:1 

IF 1=2 THEN 390 ELSE 80 

CLOSE #1 

OPEN #1:"DSK1.DONNEES",RELATIV 

E,INTERNAL,FIXED 127 
INPUT #1:TRIS,TOTS :: 

TRI$):: TOT=VAL(TOTS$) 

OPEN #3:"DSK1.INDEX", INPUT ,IN 

TERNAL,FIXED 4 :: FOR I=1 TOT 

RI 

INPUT #3:P$(I) 

NEXT I :: CLOSE #3 

IF TOT=0 THEN 380 

CALL NET :: CALL RECH 

ACCEPT AT(24,2)VALIDATE (UALPHA 
):T$ :: IF T$="" THEN 290 

L=LEN(T$) 
IF L<6 THEN 

CALL NET :: CALL TROP :: CALL 

ENT :: CALL STOP(K):: GOTO 230 

CALL NET 

FOR I=1 TO TOT :: IF I<=TRI TH 

EN Z=VAL(P$(I))ELSE Z=1 

GOSUB 400 

PRINT USING “###"“:1;:: 
“&D$ (3) 

NEXT I 

CALL HCHAR(12,1,42,2) 

CALL HCHAR(12,31,42,2) 

CALL FIN :: CALL STOP(K) 

CALL VCHAR(1,31,129,96):: 

=15 THEN 230 

CLOSE #1 

END 


FERRER RARES 


INPUT #1,REC Z:D$(1),D$(2),DS$S({ 
3):: CALL KEY(0,K,S):: IF K=15 
THEN 230 ELSE IF NOT S THEN R 

ETURN 

CALL SCREEN(11) 

CALL KEY(0,K,S):: IF S<>1 THEN 
CALL SOUND(-1,1000,10):: GOTO 
420 

CALL SCREEN(7):: 
230 

RETURN 

DISPLAY AT(21,1):" NOM RECHERC 

HE:®2:° "53 Jml,: 

: J=TRI 

ZT=INT((I+J)/2):: 


TRI=VAL( 


450 


PRINT "* 


IF K 


IF K<>32 THEN 


Z=VAL(P$(ZT) 


) 

INPUT #1,REC Z:D$(1),D$(2),D$( 
3):: D$(4)=SEGS$ (D$(3),1,L) 

IF D$(4)=T$ THEN 530 

IF D$(4)<T$ THEN I=ZT+1 ELSE J 
=2T-1 

IF (ZT<1)+(1>J)=0 THEN 460 ELS 
E 570 

INPUT #1,REC Z:D$(1),D$(2),D${ 
3):: D$(4)=SEGS$ (D$(3),1,L) 

IF D$(4)<>T$ THEN 540 
IF ZT>1 THEN ZT=2T-1 
P$(ZT)):: GOTO 510 
INPUT #1,REC Z:D$(1),D$(2),D$( 
3):: D$(4)=SEGS$ (D$(3),1,L) 

IF D$(4)=T$ THEN 560 ELSE Z2T=Z 
T+1 :: Z=VAL(PS(ZT)):: GOTO 54 


:: Z=VAL( 





37 


38 


0 
IF D$(4)=T$ THEN PRINT USING "“ 
### ":2T;:: PRINT D$(3)ELSE 57 
0 
IF ZT<>TRI THEN ZT=2T+1 :: Z=V 
AL(P$(ZT)):: INPUT #1,REC Z:D$ 
(1),D$(2),D$(3):: D$(4)=SEGS$ (D 
$(3),1,L):: GOTO 560 
IF TRI=TOT THEN 610 
FOR Z=TRI+1 TO TOT :: INPUT #1 
, REC Z2:D$(1);D$(2);D$ (3) 
D$(4)=SEG$ (D$(3),1,L):: IF DS$( 
4)=T$ THEN PRINT USING "### ": 
Z;:: PRINT D$(3) 
NEXT 2Z 
CALL FIN :: CALL STOP(K):: IF 
K=15 THEN 230 ELSE STOP 
SUB TITRE :: DISPLAY AT(10,10) 
:"TI 99/4A": :TAB(4);"RECHERCH 
E SUR FICHIER":TAB(4);" 

:: SUBEND 
SUB ENT :: DISPLAY AT(23,6):"A 
PPUYEZ SUR ENTER" :: SUBEND 
SUB RIEN :: DISPLAY AT(8,6):"A 
BSENCE DE FICHIER":TAB(6);"--- 

2 :TAB(8);"O 
PTIONS"* 
DISPLAY AT(14,5):"*1 
SAL": :TAB(S):°"2. 
UBEND 
SUB CHOIX :: DISPLAY AT(22,8): 
“VOTRE CHOIX ?* :: SUBEND 
SUB RECH :: DISPLAY AT(22,1)BE 
EP:"* DEBUT DU NOM A RECHERCHER 
“ :: SUBEND 
SUB TROP :: DISPLAY AT(12,1)BE 
Pi “ IL Y A TROP DE LETTRES !! 
Pis, 2% (5 MAXIMUM)" :: SUB 


. NOUVEL ES 
SORTIE" :: S 


END 
SUB NET :: CALL VCHAR(1,3,32,6 
72):: SUBEND 

SUB STOP(K) 

CALL SOUND (150, 800,2) 

CALL KEY(0,K,S):: IF NOT S THE 
N 710 

IF K<>15 AND K<>13 THEN 700 
SUBEND 

SUB FIN :: PRINT 
NTER>pour arret" :: 


:" <BACK>ou<E 
SUBEND 


Titrer en gros 


Ce programme dépend 
directement des possibilités de 
votre imprimante. À cet effet, il 
comporte une bibliothèque de 
toutes les spécifications 
employées dans les différents 
programmes afin que vous 
puissiez faire une adaptation. Le 
titre est en double largeur, 
caractères italiques, impression 
en gras. Une fois terminé, le 
sommaire est rechargé 
automatiquement. 


Programme "TITRER" 


Basic étendu 


prsrenvereersesseseeres 


6 | TITRER EN GROS 


7 peséeoeneeneressenranasee 


10 CALL CLEAR :: CALL SCREEN(7):: 
CALL COLOR(13,7,7) 

20 CALL VCHAR(1,31,129,96) 

30 FOR I=1 TO 12 :: CALL COLOR(I,S5 
12):: NEXT I 

40 DISPLAY AT(8,10):"TI 99/4A"*: : 
:"  TITRER EN GROS CARACTERES” ; 


45 DISPLAY AT(17,3):"<FCTN AID>:sp 
ecifications": :" <ENTER> :c 


ontinuer"* 

CALL SOUND(150,800,5) 

CALL KEY(0,K,S):: IF NOT S THEN 
60 ELSE IF K=13 THEN 120 ELSE 
IF K<>1 THEN 60 

CALL NET :: DISPLAY AT(1,2):"IM 

PRIMANTE SEIKOSHA 550 A":" ---- 


DISPLAY AT(4,1):"*CHR$(14) carac 
tere dilate":"CHR$(15) fin de d 
ilatation*“:"CHR$(24) vide le bu 
ffer" 

DISPLAY AT(7,1):"CHR$(16);""xxXXx 
““ tabulation":"CHR$ (10) retour 
chariot": : "CHRS$ (27) ;annonce 
les donnees":"""C""* condenses 

(136/1igne)" 

DISPLAY AT(13,1):"*""B"" caracte 
res italique"“:""*""#"" caracteres 
gras"“:*"*"*$"" fin de carateres 
gras*:""*N"" caracteres normaux 

“s 2"IMP$SS"".CR""2" 

100 DISPLAY AT(20,1):""*"*.CR""*" supp 
rime le retour du chariot au 8 
0 Ieme caractere (pour en mettr 
e jusqu'a 136)“: :" <enter> p 
our continuer" 
CALL KEY(0,K,S):: 
N 110 
CALL NET :: OPEN #9:"*PIO" 
DISPLAY AT(8,2)BEEP:"TITRE EN 
GROS CHERE TERESTET 


IF NOT S THE 


ligne maximum” 
ACCEPT AT(16,1)SIZE(-28):A$ 

IF A$="" THEN 210 
DISPLAY AT(20,4):"IMPRESSION E 
N COURS" : TAB(4);"----- 


PRINT #9:CHR$(27);"B";CHRS$ (14) 
X=INT ((40-LEN (A$))/2) 

PRINT #9:CHR$(27);"#";TAB(X);A 
$ 

PRINT #9:TAB(X-2);RPTS$ ("-", LEN 
(A$)) 

PRINT #9:CHR$(15);CHR$(27);"$"* 


:CHR$ (27); "N°3: 

CLOSE #9 

RUN “DSKI1.LOAD" 

SUB NET :: CALL VCHAR(1,3,32,6 
72):: SUBEND 


Programmes 
en assembleur 


Saisie 


Lorsque vous entrerez ces programmes, 
NE SAISISSEZ PAS LES 
COMMENTAIRES, car vous ne 
pourriez pas les assembler sur une seule 
face de disquette. Si vous disposez de 
plusieurs lecteurs, aucun problème ; il 
suffira d'envoyer le fichier objet sur une 
autre disquette. Le programme est prêt à 
être transformé en “image mémoire" 
grâce au programme "SAVE" de la 
disquette Editeur/Assembleur Texas 
Instruments (une fois assemblé), il se 
chargera alors environ trois fois plus 
vite. Si vous l'utilisez avec la 
Mini-mémoire, qui ne permet pas de 
charger ce type de fichier, rajoutez 
"FICHES" après le END du fichier 
source "“FICHO" pour que votre 
programme démarre automatiquement. 


Initialiser le 
fichier 


C'est le premier programme à faire 
tourner. Il permet d'ouvrir les fichiers et 
de contrôler si l'espace initial pour les 
données est suffisant. Vous devrez alors 


rentrer le nom des groupes dans lequels vous mettrez vos fiches (au moins une) et 
indiquer le nom de votre imprimante (ce n'est pas obligatoire). Vous pourrez modifier 
ce nom et les paramètres éventuels à chaque fois que vous choisirez l'option 


"IMPRESSION". 


Gestion du fichier 


C'est le programme qui permet de saisir les données et, éventuellement, de modifier 
les noms de groupes ou les informations contenues dans les fiches. Il permet 
également de marquer une fiche pour l'effacer (avec "TRI"), de rechercher une fiche ou 
un groupe et de l'afficher sur l'écran. Chaque enregistrement contient les informations 
relatives à l'adresse, plus un caractère : soit A (actif), I (inactif) ou E (effacement), 
précédant les huit octets (groupe dans lequel est la personne). Evitez de modifier les 
saisies concernant les noms, prénoms, adresses, codes, villes et numéros de 
téléphone. En revanche, les autre informations sont spécifiques et vous pourrez les 


changer à votre convenance. 


Source ‘FICHO" 


COPY "DSK1.FICH1" 
COPY "DSK1.FICH2" 
COPY "DSK1.FICH3" 
COPY "DSK1.FICHA4" 
SLAST END 
*“ si vous ne voulez utiliser que le 





* fichier classique avec depart automatique 


****** rajouter ici FICHES 


Pour effectuer des modifications, il 
faut, dans "PROGRAMME DE 
GESTION" et à l'étiquette 
"TEXT6", changer l'intitulé des 
saisies. Dans "INITIALISER LE 
FICHIER", à l'étiquette "NBSAIS", 
il faut éventuellement les nouveaux 
chiffres, chaque chiffre indiquant le 
nombre maximum de chaque 
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rubrique (nom, adresse, code, ville, téléphone, etc...) dans 
l'ordre ou vous les avez mis dans "TEXT6", le total ne devant 
pas dépasser 127. Dans "IMPRIMER LE FICHIER", à 
l'étiquette "ENTETI" et "ENTET2", modifier les intitulés. 
Dans le même fichier, mais cette fois à l'étiquette "IMPRS" 
vous trouverez les paramètres d'impression : 

+ _TLIGNE correspond à l'imprimante ; 

+ _ TPAB correspond à l'emplacement où se trouve l'information 

sur l'enregistrement. 


Trier le fichier 


Dès que vous avez une dizaine de fiches, classez-les par ordre 
alphabétique. Ce programme va créer un index qui permettra aux 
autres programmes d'aller chercher les informations 
alphabétiquement et vous pourrez, en option, effacer des fiches. 
Utilisez-le fréquemment ; il est très rapide. Vous pourrez 
également trier les autres informations, sauf les adresses et les 
chiffres d'inégales longueur, car le programme ne prend en 
compte que quatre octets au maximum. 


Imprimer le fichier 


Vous pouvez organiser un fichier organisé sous forme de 
colonnes. Le choix des groupes à imprimer est aussi possible. 
Le programme utilise une imprimante avec caractères condensés 
(136 caractères par lignes) ; cela permet l'affichage de la totalité 
des informations sur une ligne. Dans le cas d'une imprimante 
sans ce type de caractère, il faudra modifier, dans "IMPRS" 
comme indiqué plus haut, les saisies dans TPAB, leur report 
dans "TLIGNE", et se restreindre à un nombre de caractères plus 
limité. 

Vous pouvez imprimer des étiquettes d'adresses ; le programme 
est conçu pour une imprimante 80 colonnes pouvant imprimer 
deux étiquettes de front. 


De nombreux paramètres vous permettront de centrer vos 
étiquettes aux mieux. J'utilise pour ma part deux étiquettes de 
front (mais vous pouvez n'en utiliser qu'une) et les paramètres 
que j'utilise sont stockés dans le fichier "ETIQUETTES 
D'ADRESSES" aux étiquettes MG (marge de gauche), ENTRE 
(écart entre les deux étiquettes), SAUT (nombre de lignes à 
sauter entre les séries), et enfin MAXI (nombre maximum de 
lignes de l'imprimante). Il y a également, à l'étiquette HEX10, 
des codes LF "CHR$(10)" commun à toutes les imprimantes, et 
qui provoquent l'impression de la mémoire tampon, un retour 
chariot et un saut de ligne. 


Une étiquette modèle est imprimée pour déterminer le format 
maximum de vos données. Toutes les spécifications de 
l'imprimante qui sont employées sont dans "IMPRESSION DU 
FICHIER", aux étiquettes COMPR (caractères compressés), 
BIGCAR (gros caractères + caractères gras) et FINBIG (fin gros 
caractères, fin caractères gras et remise en mode normal). 


A vous de placer les codes correspondants pour votre 
imprimante. Dans le cas où vous n'auriez pas toutes ces 
possibilités, il faudra mettre des >00 à la place des codes 
manquants ; de cette façon, vous n'aurez rien d'autre à modifier. 
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Source “FICH1" 


DEF 
REF 
REF 
AORG 
SFIRST 
SLOAD B 
TEXTE TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
DATA 
DATA 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


REG 
TPAB 
PAB 
PAB2 
RTCLA 
PNTR 


FICHES, SFIRST, SLOAD, SLAST 
VSBW, VMBNW, VMBR, KSCAN 
DSRLNK, VWTR, XMLLNK, VSBR 
>A000 


QFICHES 
—"XXXXXXXXXXXXXXXXXXXXXXXX ! 
—-'"X FICHIER D''ADRESSES X 
—"XXXXXXXXXXXXXXXXXXXXXXXX ! 
—'SOMMAIRE 


lunvunm—_nr L 
TRRHRRRHÉARÉ KR k XX k XX À À À 
=! # 

—!'*x Appuyez 

EE sur 
EE Gerer 
Imprimer 
Initialiser 
Trier 


pour 
!* 


-!t*+ 


1 
2 
1* 3 
4 
5 


"x Terminer 
i* 


TRXXÉ XX XX KE A X É K É ke À À À À 


48,88,128,255,295,406,446 
486,526,566,606,646,686,726,166 
806,0 

>20BA 

>1000 

>F80 

>F00 

>8375 

>8356 


* mode input int/ix 38 


DSKO DATA 


TEXT 


>000D,>1000,>2626,>0000,>0005 
"DSK1.' 


“ mode input intÆix 127 


DSK1 DATA 


TEXT 


>000D,>1000,>7F7F,>0000,>000€C 
"DSK1.DONNEES" 


* mode input int/var 254 


DSK2 DATA 


TEXT 


>000C,>1000,>FEFE,>0000,2>000A 
"DSK1.INDEX' 


“ emplacement des noms de groupes 


GROUPE DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


>2020,>2020,>2020,>2020,>2020 
>2020,>2020,>2020 
>2020,>2020,>2020,>2020,>2020 
>2020,>2020,>2020 
>2020,>2020,>2020,>2020,>2020 
>2020,>2020,>2020 
>2020,>2020,>2020,>2020,>2020 
>2020,>2020,>2020 
>2020,>2020,>2020,>2020,>2020 
>2020,>2020,>2020 
>2020,>2020,>2020,>2020 

0 

0 

0 

65 

69 

73 

48 

49 

50 

SL 
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QUATRE 
CINQ 
NEUF 
ENT 
OUI 
NON 
BACK 
REDO 
FCTNS 
FCTND 
INDX 
TERM 
DRAP 
DRAP1 
DRAP2 
D450 
DIX 
SECT 
LGR 
NLIG 
LSAIS 
D40 
MINI 
D320 
D11 
D33 
D80 
ATTRIB 
TAMPON 
BUFGR 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BSS 

BYTE 
BSS 

EVEN 


nr J Jr 0 ü un 
U © © WW - & N 


O0O0O0O0MSBSOOOOO ww 


& © 
Oo 


MOV R9,@PNTR 
BLWP @DSRLNK 
DATA 8 
RT 
* s/p d'ouverture 
OPEN LI  RO,PAB 
BLWP @VMBW 
DSR LI R9,PAB+9 
MOV R9, @PNTR 
BLWP @DSRLNK 
DATA 8 
RET2 
@INDX, @INDX 
RET3 
@ERREUR 
RET2 
RET3 SETO @TERM 
RT 
* s/p d'arret o/n 
ARRET BLWP @KSCAN 
MOVB @>837C,R4 
JEQ ARRET 
MOVB @RTCLA, R4 
RT 
* s/p de saisie 
ACCEPT LI  R2,1 
sG1 LI R3,>100 
sG2 @KSCAN 
@>837C, R4 
SG16 
@RTCLA, @ENT 
sG12 
@RTCLA, @BACK 


R2 

R7 

RO 

SG2 

@RTCLA, @FCTND 
SG4 

@DRAP2, @DRAP2 
SG2 

R2, @LSAIS 

SG2 

*R7,R1 

@GVSBW 

R2, @LSAIS 
SG11 

RO 

R2 

R7 

SG2 

@RTCLA,R1 
R12,R12 

SG18 

@DRAP2, @DRAP2 
SG8 

@DRAP6, @GDRAP6 
SG10 

R1, @OUI 

SG8 


* s/pinitialisation “tampon” 


R1, @GNON 


INITAM CLR R2 


TA 


MOVB R1, @TAMPON (R2) 


INC R2 

CI R2,118 
JNE TA 

RT 


* s/p efface ecran 


CLEARI1 


CLEAR 
CL1 
CL 


LI RO, 160 
JMP CL1 

CLR RO 

LI R1,>2000 
BLWP @VSBNW 
INC RO 

CI RO, 960 
JNE CL 

RT 


* s/p affichage 


AFFICH 


AFF 


RET 


MOV  *R3+,RO 
JEQ RET 
MOVB *R2+,R1 
JLT AFFICH 
BLWP @VSBW 
INC RO 

JMP AFF 

RT 


* s/p fermeture fichier 


OVER 


LI RO, PAB 

LI R1,ATTRIB 
LI R2,2 

BLWP @VMBNW 

LI R9,PAB+9 


RED 

@DRAP6, @DRAP6 
SG15 

R12,R12 

SG17 

@NOMGR 
@NOUVE 
@DRAP1, @DRAP1 
SG13 

QOPT 

@DRAP, @DRAP 
SG2 

QIMPR 

Q@FINI 

@CURS 

@RTCLA, @REDO 
SG7 

*R7,R1 

QVSBW 

@DRAP4, @DRAP4 
SG2 

@DRAP, GDRAP 
SGs 

@SAISIE 
@DRAP2, @DRAP2 
SG6 

CAJGR2 
@DRAP1, @DRAP1 
SsG7 

QAJOUT 
@RTCLA, @FCTNS 


UNE 
C 
JHE 
INC 
INC 
JMP 
DEC 
JMP 
DEC 
NE 
MOV 
JEQ 
CLR 
LI 
BLWP 
JMP 
SETO 
MOVB 
BLWP 
JMP 

FINI1 DEC 

* apres enter 


SG2 

SG8 

R1, @ZERO 
SG2 

R1, @NEUF 
SG2 

R1, *R7+ 
QVSBW 
@DRAP2, @DRAP2 
FINIL 
R2, @LSAIS 
SG11 

RO 

R2 

SG14 

R7 

SG14 

R3 

SG14 
R6,R6 
SGCL 

R6 
R1,>1E00 
QVSBW 
SG9 

R6 
*R7,R1 
QVSBW 
SG9 

R7 
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FINI  MOVB *R7,R1 RT @CHTRI, @CHTRI 
BLWP @VSBW * s/p affichage en decimal CHOIX 
RET1 RT DECI MOV R2,RO LI  R2,TEXTAL 
sG9 B esG1 B3 MOV R4,R5 LI R3,ADD14 
SG14 B @sc2 CLR RA4 BL @AFFICH 
“ s/p de retour DIV @DIX,R4 BL G@ARRET 
RETOUR BL  @CLEAR MOV R5,R1 CB R4,G@NON 
LI RO,>01EO0 AI R1,>30 CHOIX 
BLWP @VWTR SWPB R1 CB R4,@OUI 
SWPB RO BLWP @VSBW JNE  ARRO 
MOVB RO, @>83D4 DEC RO CLR @CHTRI 
CLR @>837C Los RO, R7 CLR @INDX2 
LWPI >83E0 JNE B3 * choix de depart 
B @>0070 RT CHOIX BL  @CLS24 
* s/p d'attente <enter>-<back> ii idoles dia enit BL  @ARRET 
ENTER BLWP @KSCAN FICHES LI  RO,>0744 CB  R4,@UN 
MOVB @>837C,R13 BLWP @VWTR CH1 
ANDI R13,>FFO0O LI  RO,>01FO0 CB R4,@DEUX 
LI R14,>2000 -  BLWP @VWTR CH2 
COC R14,R13 SWPB RO R4, @TROIS 
JNE ENTER MOVB RO,@>83D4 CH3 
CB  @RTCLA, @ENT * retablir la couleur R4, @QUATRE 
ENTER1 LI RO,>07F4 CH4 
CB  @RTCLA, @BACK BLWP @VWTR R4, @CINQ 
JNE ENTER CLR @>8374 CHOIX+4 


RT FICH BL  @CLEAR @RETOUR 
ENTER1 SETO @DRAP2 LWPI REG CH1 @GERER 
RT * affichage 1er ecran CH2 @IMPRES 
* sauve attribut en cas d'erreur LI R2,TEXTE CH3 @INIT 
SATTR INC RI1 ET R3,ADDRE CH4 QTRIER 
MOVB *R1, @ATTRIB+1 BL QGAFFICH 
DEC R1 * index? o/n * PROGRAMME DE GESTION 


LLLLALLLLLILILLLLLILILTL LT 


LLLLELLLLLLLL LILI LI LLLIT IT] 


TEXT1 TEXT -'@C@CCGCQCQCCRCCCECCCCCCCCCCRCERER TEXT -'3-Effacer 
TEXT -'@ @ TEXT -'4-Retour 
TEXT -'@ Nombre de fiches triees = 000 @ DATA 7,47,87,329,369,494,534,574,614,0 
TEXT -'"@ @ TEXT -'XXXXXXXXXXXKXXXXXXXXXXXKXX ! 
TEXT -'@ Nombre total de fiches = 000 @ TEXT -'x modification de groupe x ' 
TEXT -'@ @ TEXT —-'XXXXXXXXXXXXXXXXXXXXXXXXXX ! 
TEXT -'@ Nb de groupes utilises = 000 @ TEXT -'OPTIONS 
TEXT -'@ @ TEXT -'------ ; 
TEXT -'"@CGGCCCCGCOCACCERCCCCARCCECECERER TEXT -'l1-Ajouter un groupe 
TEXT -'Nom de l''imprimante = TEXT -'2-Corriger un groupe 
TEXT -'<ENTER> pour continuer TEXT -'3-Effacer un groupe 
ADD1 DATA TEXT -'4-Fiches hors groupes 
284,324,364,404,444,484,524,564,604,686,849,0 TEXT -'5-Retour 
TEXT2 TEXT -'XXXXXXXXXXXXXXXXXXXXXXXX ! DATA 7,47,87,335,375,450,490,530 
TEXT -'X FICHIER D''ADRESSES X DATA 570,610,0 
TEXT -'XXXXXXXXXXXXXXXXXXXXXXXX ! TEXT -'"XXXXXXXXXXXXXXXXXKXXXKXXXX ! 
TEXT -'GESTION DU FICHIER TEXT -'x recherche dans fichier x 
TEXT TEXT —-'"XXXXXXXXXXXXXXXXXXXXXXAXXX ! 
TEXT -'1-Mise a jour TEXT -'OPTIONS DE RECHERCHE 
TEXT -'2-Groupes TEXT =! , 
TEXT -'3-Recherche TEXT -'1-Une fiche 
TEXT -'4-Retour TEXT -'2-Un groupe 
DATA 48,88,128,331,371,491,531,571,611,0 TEXT -'3-Tout le fichier 
TEXT -'XXXXXXXXXXXXXXXXXXXXXXXXXX ! TEXT -'4-Retour 
TEXT -'x mise a jour du fichier x DATA 7,47,87,330,370,492,532,572,612,0 
TEXT -'XXXXXXXXXXXXXXXXXXXXXXXXXX ! TEXT -'FICHE No 
TEXT -'OPTIONS DE MISE À JOUR TEXT -'TITRE: ! 
TEXT == mms! TEXT -'NOM Prenom: 
TEXT -'1-Ajouter TEXT -'ADRESSE: 
TEXT -'2-Modifier TEXT -'CODE PTT: ! 
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TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 


‘indiquez par O/N le groupe dans ‘ 
-'lequel ‘ 

‘vous voulez mettre le nouveau ‘ 
-'"non ! 

280,322,0 

"LES 450 FICHES PREVUES SONT 
-'UTILISEES 

-'Initialisez un autre fichier 
-'sur une autre disquette 
-‘Appuyez sur une touche ‘ 
401,524,566,847,0 


-'VILLE: 
"TELEPHONE: 
—'COTISATION: 

“UNoi LIC: 

"BOX: 
187,205,280,363,9442 
525,601,680,764,847,0 
"Valider : <ENTER> Corriger 
-<BACK> ! 

922,0 

-'Une autre fiche ? 


ADD9 
TEXT10 


42 


927,0 


* s/p evite repetition touche 


BLOQ 
ANDI 
LI 
COC 
RT 


* s/p d'ecriture 


WRITE LI 
LI 
LI 


AI 
LI 
LI 
BLWP 
RT 


MOVB @>837C,R13 


R13,>FFO00 
R14,>2000 
R14,R13 


RO, TPAB 
R1, GROUPE 
R2, 94 
GVMBW 

RO, 94 

R1, NOMIMP 
R2, 33 
@VMBW 


LELLLLLLLLLLLLLLLLLLELEL LEE] 


* ouvre le fichier "index" 


GERER MOV 
JNE 
LI 
BL 
LI 
BL 
SETO 
CLR 


@INDX2, @GINDX2 
DON1 

R1, DSK2 
@SATTR 

R2,20 

@GOPEN 

@INDX 

RS 


* lecture des enregistrements 


INDEX1 BL 
BL 
MOV 
JEQ 


@INPUT 

@DSR 

@TERM, @TERM 
TRANSF 


* verifier si err=5 (fin fichier) 


CLR 
LI 
BLWP 
SRL 
CI 
JEQ 
B 


@TERM 
RO, PAB+1 
GVSBR 
R1,13 
R1,5 
FERME 
@GERREUR 


* fermeture index” 


FERME BL 


@GOVER 


CLR @INDX 
SETO @INDX2 
JMP  DONI 

* transfer dans "index" 

TRANSF LI  RO,TPAB 
LI R1l,INDEX 
A R5,R1 
LI R2,254 
BLWP @VMBR 


AI 
JMP 


R5,254 
INDEX1 


* ouverture fichier "donnees" 
@DRAP10,@DRAP10 


DON1 MOV 
JEQ 
B 
LI 
BL 
LI 


BL 


DON2 
@IMPRI1 
R1,DSK1 
@SATTR 
R2,22 
@OPEN 


* lecture enregistrement 0 


BL 
BL 


QGINPUT 
@DSR 


* saisie groupes, tri,tot,ngr,imp 


BL 


@READ 


* ecriture a l'ecran 


ECRAN1 BL 
LI 
LI 
BL 
LI 
LI 


BL 
AI 
AI 


BL 
AI 
AI 


BL 
LI 
LI 
LI 
BLWP 
BL 


@CLEARI 
R2,TEXT1 
R3, ADD1 
GAFFICH 
R2,394 
R7,391 
@TRI,R4 
@DECI 
R2,80 
R7,80 
@TOT, R4 
@DECI 
R2,80 
R7,80 
@NGR, R4 
@GDECI 
RO, 708 
R1,NOMIMP +1 
R2, 32 
@VMBW 
GENTER 


* ecran suivant 


OPT BL 
LI 
LI 


@CLEAR 
R2,TEXT2 
R3, ADD2 


BL @AFFICH 
R12 
@DRAP 
@DRAP1 
@DRAP2 
@DRAP3 
@GDRAP4 
@GDRAPS 
@DRAP6 


EVEN 


* choix 
CHOIX1 


CH9 
JNE 


@DRAP7 
@DRAP8 
@GDRAP9 
@DRAP10 
@GDRAP11 


@GARRET 
GBLOQ 
CHOIX1 
R4, GUN 
CH7 

JOUR 

R4, @GDEUX 
CH8 
@GNOMGR 
R4, @TROIS 
CH9 
@RECHER 
R4, GQUATRE 
CHOIXI1 


* ferme le fichier 


BL 
B 


GOVER 
QFICH 


* options mise a jour 


JOUR BL 
LI 
LI 
BL 

CHOIX2 
BL 
JNE 
CB 
JNE 
B 
CB 
JNE 
B 
CB 
JNE 
B 
CB 


@CLEAR 
R2, TEXT3 
R3, ADD3 
GAFFICH 
@ARRET 
@BLOQ 
CHOIX2 
R4, GUN 
CH10 
@GAJOUTE 
R4, GDEUX 
CH11 
@MODIF 
R4, @TROIS 
CH12 
@EFFACE 
R4, @GQUATRE 


JNE CHOIX2 
B @OPT 

* options groupes 

NOMGR BL  @CLEAR 
CLR @DRAP6 
LI R2,TEXTA 
LI  R3,ADA4 
BL  G@AFFICH 

CHOIX3 BLWP @ARRET 
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@BLOQ 
CHOIX3 
R4, GUN 
CHOIX3 
R4, @TROIS 
CH14 
@MODGR 
R4, @GQUATRE 
CH18 
@GAPPGR 
R4, @CINQ 
CHOIX3 
@OPT 


* options de recherche 


RECHER BL 
LI 
LI 
BL 

CHOIXA4 
BL 
JNE 
CB 
JNE 
B 
CB 
JNE 
B 
CB 
UNE 
B 
CB 
JNE 
B 


@CLEAR 
R2, TEXT5 
R3, ADD5 
@AFFICH 
@ARRET 
@BLOQ 
CHOIXA 
R4, GUN 
CH15 
@RECH1 
R4, @DEUX 
CH16 
@AFFIGR 
R4, @TROIS 
CH17 
@TOUTFI 
R4, GQUATRE 
CHOIX4 
COPT 


* s/p efface la derniere ligne 


CLS24 LI 
LI 
LI 


R1,NET 
RO, 920 
R2,40 


BLWP @GVMBW 


RT 


LELLLLLLLLLLLLLLEL EL] 


* AJOUTER UN NOM 


LELLLLELLLLLLLLELE EL) 


AJOUTE BL 


@GCLEARI1 


* test si tot<=450 


€ 
JLE 
LI 
LT 
BL 
BL 
BL 
B 
* test positif 
AJOUT2 LI 
BL 
LI 
LI 
BL 
MOV 
INC 
* No de fiche 
AJOUT4 LI 
LI 
BL 


@TOT, @D450 
AJOUT2 

R2, TEXT10 
R3, ADD10 
GAFFICH 
@GOVER 
GARRET 
@GFICH 


R1,>2E00 
@GINITAM 

R2,TEXTE6 
R3, ADD6 

GAFFICH 

@TOT, R4 

R4 


R2,198 
R7,195 
@DECI 
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AJOUT SETO @DRAP1 
CLR G@DRAP 
CLR @NLIG 
CLR &@LGR 
LI R8,NBSAIS 
* saisie des informations 


AJOUT1 LI 


RO,212 


A @NLIG, RO 
CLR G@DRAP2 


MOV RO,R13 -—> adr ecran 
*R8+,@LSAIS depart 


MOV 


JEQ AJFIN 


LI 
A 


R1, TAMPON 
@LGR, R1 


MOV R1,R7 


MOV 
BLWP 
BL 


@LSAIS, R2 
@VMBW 
@GACCEPT 


* verifie si appel depuis "modif" 


MOV 


@DRAP4, @DRAP4 


JNE  AJOUT3 


* recherche dans fichier du nom 


CI 


R13,292 


JNE  AJOUT3 


BL 


JNE 
LI 
BL 
JMP 


@TOT, @TOT 
AJOUT3 

RO, TPAB+4 
R1, TAMPON+4 
R2,28 
GVMBW 
@GADDIT 


@GASCII, @SOMME1 


@GDRAP3 

@GRBLOC 
@GDRAP3, GDRAP3 
AJOUT3 

R8, NBSAIS+2 
@CLS24 

AJOUT1 


* lignes suivantes 


AJOUT3 A 


@D80,@NLIG 


* LGR=nb a ajouter a “tampon” 


A 
JMP 


@LSAIS, @LGR 
AJOUT1 


* affiche <enter><back> 


AJFIN LI 
LI 
BL 


BL 


JNE 
BL 
B 
* poursuité de | 
AJFIN1 MOV 


R2, TEXT7 

R3, ADD7 
@GAFFICH 
@DRAP3 

@ENTER 
@DRAP2, @DRAP2 
AJFIN1 

@CLS24 

@AJOUT 
operation 
@DRAP4, @DRAP4 


JNE AJFIN2 


INC 
AJFIN2 BL 
CLR 
INC 


@TOT 
@CLEAR1 
@LSAIS 
@LSAIS 


* affiche le nom 
LI  RO,165 
LI R3,TAMPON 


LI 


CB 
JEQ 
BLWP 
INC 
DEC 
JNE 


R2, 32 
*R3+,R1 
R1, @POINT 
AJG2 
@VSBW 

RO 

R2 

AJG1 


* appartenance a un groupe 


LI 
LI 
BL 
LI 
LI 
BL 


JNE 
LI 
LI 
BL 
LI 
LI 
LI 
MOVB 
DEC 
JNE 
CLR 
CLR 
CLR 


R2,TEXT9 
R3, ADD9 
QGAFFICH 
R2,TEXTG1 
R3, ADGR+4 
QAFFICH 
@DRAP4, @DRAP4 
AJGR2 

R2, TEXTG3 
R3, ADG3 
GAFFICH 
R3,9 

R2, BUFGR 
R1,>2000 
R1, *R2+ 
R3 

BUFCL 
@DRAP1 
@NLIG 
@LGR 


* affichage du groupe 


AJGRI1 LI 
A 
LI 
A 
LI 
BLWP 
INC 


RO, 486 
@NLIG, RO 
R1, GROUPE 
@LGR, R1 
R2,11 
GVMBW 
@DRAP1 


* saisie OouN 


ON LI 
A 
LI 
A 
DEC 
BLWP 
MOV 
BL 


RO, 498 
@NLIG, RO 
R1, BUFGR+1 
@DRAP1,R1 
R1 

@VSBNW 
R1,R7 
@ACCEPT 


* groupe suivant 


ENTBAC CLR 


@DRAP1, GNGR 
ENTBAC 
@D40,@NLIG 
@D11,@LGR 
AJGR1 
@DRAP1 


* enter ou back 


LI 
LI 
BL 


BL 


UNE 


BL 
JMP 


R2,TEXT?7 

R3, ADD7 
QGAFFICH 
@DRAP2 

@GENTER 
@DRAP2, @GDRAP2 
GRTRAN 

@CLS24 

AJGR2 


* transfer et verif. si inactif 





43 


R3 

RS,118 

@DRAP1 

R1, BUFGR 

R2, TAMPON+119 
R1 

R3 

R3, @GNGR 
AJSUIT 

*R1, *R2+ 

*R1, @OUI 

GRTR 

@DRAP1 

GRTR 

@DRAP1, GDRAP1 
INACT 


AJSUIT 
JEQ 
* marque actif 
MOVB @A, @TAMPON (R5) 
JMP  AJENR 
* marque inactif 
INACT MOVB @I, @TAMPON (R5) 
AJENR CLR @DRAP1 
* transfert dans tpab 
LI RO,TPAB 
LI  R1, TAMPON 
LI R2,127 
BLWP @VMBW 
* No de l'enregistrement 
AJENR4 LI RO,PAB+6 
MOV  @DRAP4, @DRAP4 


AJENR1 
R1, NUMENR 
AJENR2 
LI  R1,TOT 
LT R2,2 
BLWP @VMBW 
* mode update 
LI  RO,PAB+1 
LI  R1,>0900 
BLWP @VSBW 
* enregistrement de la fiche 
BL  @PRINT 
BL @DSR 
MOV  @DRAP5, @DRAP5 
JNE AJ2 
MOV  @DRAP4, @DRAP4 
JEQ AJENR3 
B @AUTMOD 
* autre fiche ? 
AJENR3 BL 
LT 
LI 
BL 
BL 


LI 

JMP 
AJENR1 
AJENR2 


@CLS24 
R2,TEXTS8 
R3, ADD8 
QGAFFICH 
@GARRET 
R4, @OUI 
AJ1 

R4, GNON 
ARR 
GDRAP2 
ENREGO 


Source "FICH2 Z 


LELLLLLLILL LL LLLLL1LLLLLLLLLLLLELELE EE 


* PROGRAMME D'INITIALISATION 


LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLEL EE] 


TITRE4 TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


-'lecteur 
ADDREA4 
TITRA 

-'insuffisant 


—-'secteurs 


—"<ENTER> 


—-'secteurs 


ADD4 
TEXTGR 


520,565,764,0 


TEXTG1 
=t* 
tk LS 
2- 
3- 
4- 
5— 
6- 


1"* 


—t"+r 


—1* 


—1* 


1* 


-'"'INITIALISER LE FICHIER 


nn mme me me me me me me me me 


ECESESE SES EEE SES 


‘Chargez la disquette sur le ‘ 
No 1 
—-'"<ENTER> ou <BACK> 
329,369,520,769,0 
‘Le nb de secteurs libres est 


‘Le fichier complet occupera 227 
‘Changez votre disquette 


520,560,763,0 
‘Le fichier complet occupera 227 


-'Pour les 450 fiches prevues. 
-'Pour ouvrir le fichier 


-' SAISIE DES NOMS DE GROUPES 
: * enter ou back 


nm ne ne me me me me me me me De me me me me me de me me ne De me me me me 


TRRARRRRRRRRRRRÉRÉÉ EX É 


TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
: TEXT 
ADG3 DATA 
ADGR2 DATA 
: ADGR DATA 
DATA 
TEXT 
TEXT 
DATA 
DATA 
DATA 
EVEN 
BL 

LI 

LI 

BL 


: TEXTG2 
TEXTG3 


TEXTO 


ADDO 
NBSAIS 
ALPHA 


INIT 
<ENTER> 


BL 
CB 
JNE 
B 


AJ1 B @GAJOUTE 
AJ2 B QGAUTEFF 
* enregistrer tri,tot,ngr. 
ENREGO CLR  @NUMENR 
BL  @NUM 
BL  @WRITE 
LI  RO,PAB+1 
LI R1,>0900 
QVSBW 
BL  @PRINT 
BL @DSR 
B @OPT 


LLLLLLLLELLLLLELLLLLLLLLLLLLLLLLLEL)] 


Dans chaque enregistrement 
* ENR+O z=titre (4 octets) 
* ENR+4 = nom prenom(28 octets) 
* ENR+32 = adresse (28 octets) 
* ENR+60 = code ptt (5 octets 
* ENR+65 = ville (20 octets) 
* ENR+85 = telephone (15 octets) 
* ENR+100= cotisation (4 octets) 
* ENR+104= no de lic (6 octets) 
* ENR+110= box (8 octets) 
* ENR+118= act,ina,eff(1 octet) 
* ENR+119= app.groupe (8 octets) 


* 


G TOTAL: 127 octets 


LLLLELLLLLLELLLLLELELLLLLLLLLLLLLLEL] 


1x 7 
—1*x 8- 
!t+ * 


TRRk RÉ KR kR k k XX À XX 


—'<BACK> terminer 

—'"<REDO> corriger 

—'<S><D> deplacer ‘ 

-'<ENTER> valider 

623,0 

463,583,823,703,0 
287,327,402,442,482,522,562,602,642 
682,722,762,802,842,0 

—-'NOM DU DISPOSITIF D''IMPRESSION 
= ua une 20 m0 0 m0 20 2e 0 ve 0 ve ve ne no m0 ve ne mo me no me ne ne ne no vu ne 
404,444,0 

4,28,28,5,20,15,4,6,8,0 

0 


@GCLEAR1 
R2, TITRE4 
R3, ADDRE4 
GAFFICH 


@GENTER 
@RTCLA, @BACK 
INIT1 

QFICH 


* ouverture catalogue disquette 


INITI LI 
BL 


LI 


R1, DSKO 
@SATTR 
R2,15 
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BL  @DSR 
* lecture du catalogue rec:0 
BL @INPUT 
BL  G@DSR 
* fermeture 
BL @OVER 
* transfert rec 0 dans tampon 
LI  RO,TPAB 
LI  R1,TAMPON 
LI  R2,38 
BLWP G@VMBR 
* longueur du nom dans R3 
MOVB *R1,R3 
SRL R3,8 
* +20 pour secteurs restants 
AI R3,20 
* transfert des 8 octets dans FAC >834A 
LI  RO,TPAB 
A R3, RO 
LI R1,>834A 
LI R2,8 
BLWP @VMBR 
* tranformer en nombre simple 
BLWP @XMLLNK 
DATA >1200 
MOV @>834A,@SECT 
* comparer avec le minimum 
C @SECT, @MINI 
JHE OK 
* si pas assez de secteurs libres 
LI R2,TITRA 
LI R3,ADDRA4 
BL @AFFICH 
BL  G@ARRET 
B @INIT 
* nb suffisant 
OK LI R2,TITA 
LI R3,ADDA4 
BL  C@AFFICH 
BL  @ARRET 
*“ ouverture fichier donnees 
LI RO,PAB 
LI R1l,DSK1 
BL @SATTR 
LT  R2,22 
BLWP @VMBW 
* mode update 
LI RO,PAB+1 
LI  R1,>0900 
BLWP @VSBW 
BL  @DSR 
“ saisie nom de groupe 
SAISIE BL  @CLEARI 
CLR G@NGR 
CLR G@NLIG 
CLR G@LSAIS 
SETO @DRAP 
CLR @DRAP2 
CLR G@LGR 
LI R2,TEXTGR 
LI R3,ADGR 
BL @AFFICH 
LI  R2,TEXTG2 
LI  R3,ADGR2 


‘:)!) MAGAZINE n° 9 


BL QGAFFICH 
LI R1,>2000 
BL @INITAM 


LLLLLLLLLLLLLLLLLLLLLLLLLLLLELEL EEE 


* dans l'enregistrement No 0 : 
* de TAMPON a TAMPON#+87 il y a 
* tous les 11 octets les noms 
* des 8 groupes possibles. 
* TRlest a TAMPON+88(2 octets) 
* TOT est a TAMPON+90(2 octets) 
* NGR est a TAMPON+92(2 octets) 
* TAMPON+94=long. nom imprim. 
* TAMPON+95=n0m imp (32 octets) 
* saisie des groupes 
SGO LI RO,486 

A @NLIG, RO 

MOV RO, RB 

LI R1l,GROUPE 

A @LGR,R1 

MOV R1,R7 

LE R2,11 

BLWP @VMBW 

MOV R2,@LSAIS 

BL @ACCEPT 
* verifie si ce n'est pas un blanc 

MOV R8,RO 

CLR RI1 

BLWP @VSBR 

CI  R1,>2000 

JEQ SGoO 
* compteur de groupe 

INC GNGR 
“ saisie des lignes suivantes 


BL  G@NUM 
JMP IM1 
* met le fichier a zero 
IM CLR @TRI 
CLR @TOT 
* transfert des saisies 
LI RO,TPAB 
LI  R1i,GROUPE 
LI  R2,94 
BLWP @VMBW 
LI  RO,TPAB+94 
LI R1,NOMIMP 
LI R2,33 
BLWP @VMBW 
“enregistrement 
BL  @PRINT 
BL G@DSR 
BL G@OVER 
@DRAP10,@DRAP10 
IM2 
BL @DELAI 
B @IMPRI 
“ initialisation de "index" 
IM2 LI R1l,DSK2 
BL  @SATTR 
LI R2,20 
LI RO,PAB 
BLWP @VMBW 
* mode output 
LI RO,PAB+1 
LI R1,>0A00 
BLWP @VSBW 
BL  @DSR 
“ enregistrement 4 octets nuls 


A 
A 
C 
JNE 
CLR 


* saisie nom imprimante BL 


IMPR BL 
LI 
LI 
BL 
LI 
LI 
LI 
BLWP 
MOV 
MOV 
CLR 
CLR 
BL 
DEC 
SWPB 
MOVB 
MOV 
JEQ 


:* Mode update rec 0 


BL 
LI 
LI 
BLWP 
CLR 


@D40,@NLIG LI RO, TPAB 
@D11,@LGR LI R1,TRI 
@NLIG, @GD320 LE R2,4 


SGO EVMBW 
CDRAP10 BL @PRINT 
@DSR 
CCLEARI * fermeture fichier 


R2,TEXTO FERM BL @OVER 
R3,ADDO B @GFICH 


QAFFICH x DATA O 
RO, 524 yÿ DATA 
R1, NOMIMP+1 XY DATA 
R2, 32 ASCII DATA 
GVMBW SOMME1 DATA 
R1,R7 SOMME2 DATA 
R2, @GLSAIS SAVRET DATA 
@DRAP DRAP3 DATA 
@DRAP2 NUMENR DATA 
@ACCEPT BLANC BYTE 
R2 POINT BYTE 46 

R2 EVEN 

R2, @NOMIMP * s/p d'ecriture sur dsk 
@DRAP10, @DRAP10 PRINT LI  RO,PAB 
IM LI R1,>0300 
BLWP @VSBW 
@CLEAR1 RT 

RO, PAB+1 * s/p de lecture sur dsk 
R1,>0900 INPUT LI  RO,PAB 
QVSBW LI R1,>0200 
@NUMENR BLWP @VSBW 


© © 6: 0: 0: © ©: © 


ww 
N 
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RT TS MOV R13,@ASCII QTOT, @TRI 
* s/p d'addition ascii RT RS3 
ADDIT CLR G@ASCII * s/p de recherche en bloc @TRI, @NUMENR 
CLR RI RBLOC MOV R11, @SAVRET @NUMENR 
BLWP €VSBR CLR  @SOMME2 c @NUMENR, @TOT 
* on x le 1er octet par 512 MOV  @TOÏ, @TOT JH RS3 
* pour qu'il soit significatif JEQ RS2 MOV  @NUMENR, @ALFHA 
* (on decale l'octet fort de R1 a gauche) MOV @TRI,@TRI MOV  @NUMENR, @SECT 
SLA R1,1 JEQ RSEQ * no de l'enregistrement 
MOV R1,R13 CLR €@x LI RO,PAB+6 
INC RO INC €Xx LI  R1,NUMENR 
BLWP @VSBR MOV €@TRI,@Y LI R2,2 
. ë È LWP @VMBW 
on x le 2ieme octet par 16 coupe le bloc en deux : er À 
SRL R1,4 DIVISE CLR @XY 
A R1,R13 A ex, @XY BL  @INPUT 
CLR R14 A eY,@xY BL €@DSR 
* plus loctet suivant MOV @XY,R2 LI RO,TPAB+4 
T1 INC RO SRL R2,1 nr _. @ADDIT 
BLWP @VSBR MOV R2,@XY verifie si c'est le bon nom 
* cas d'un espace JEQ RSEQ c @SOMME1, @ASCII 
CB R1,@BLANC * passer par “index” JNE RS1 
UNE T2 MOV R2,@ALPHA MOV  @DRAP3, @DRAP3 
MOV RO,R14 DEC R2 JNE RSS 
* cas d'un point SLA R2,1 : .JMP RS4 
T2 CB R1,@POINT MOV. @INDEX (R2) , GNUMENR le fichier est vide 
JEQ T5 MOV  @NUMENR, @SECT RS2 LI  R2,TEXT13 
SRL R1,8 * aller chercher l'enregistrement LI R3,ADD14 
A R1,R13 BL  @NUM BL  @AFFICH 
MOV R14,R14 * lecture et addition ascii BL @ENTER 
NE T4 BL @INPUT SETO @DRAP 
* chercher l'espace pour ajouter BL  @DSR : JMP  RS4 
* eventuellement le 1er octet prenom LI  RO,TPAB+4 pas trouve le nom 
* sauf si mode tri temporaire BL  @ADDIT RS3 MOV  @DRAP3, @DRAP3 
MOV  @CHTRI, @CHTRI c @SOMME2, @ASCII JNE RS4 
JEQ T6 JEQ RSEQ LI R2,TEXT12 
LI  R2,5 MOV @ASCII, @SOMME2 LI R3,ADD14 
JMP T3 * comparaison avec le nom recherche BL  C@AFFICH 
LI Les QASCII, @SOMME1 BL  @ENTER 
RO JEQ RS6 SETO @DRAP 
R2 c ex, @y RS4 MOV @SAVRET,R11 
JEQ T5 JEQ RSEQ RT 
QVSBR € QASCII, @SOMME1 * nom deja sur fichier 
CB R1,@BLANC JL  PART2 RSS5 LI  R2,TEXT14 
JEQ T4 * si plus grand que nom recherche LI R3,ADD14 
CB R1,@POINT DEC @XY BL  @AFFICH 
JEQ T5 MOV @XY,@Y BL  @ENTER 
JMP T3 JMP DIVISE CLR @DRAP3 
* 1er octet du prenom * si plus petit que nom recherche JMP  RS4 
T4 INC RO PART2 INC exY LLLLLi1:11;:1:11:1;:)1::] 
BLWP @VSBR MOV @XY,ex | * PROGRAMME DE TRI 
SRL R1,8 JMP DIVISE 
A R1, R13 * s/p de recherche sequentielle TEXTE2 TEXT -'* ERREUR 


—'<ENTER> pour continuer TEXT -'"XXXXXXXXXXXXXXXXXXXX ! 

-! Protection contre l''ecriture TEXT -'X PROGRAMME DE TRI X 

"Le fichier n''est pas sur la TEXT -'XXXXXXXXXXXXXXXXXXXX 
-'disquette TEXT -'OPTIONS DE TRI 

-! Lecture au-dela du fichier 

"La disquette n''est pas sur le TEXT -'1-Tri alphabetique permanent 
—-'lecteur TEXT -'2-Tri temporaire au choix 

" Sur l''entree/sortie du TEXT -'3-Retour 

-'peripherique ADTEX1 DATA 48,88,128,251,291,365,405,445,0 
332,567,0 TEX2 TEXT -'TRI TEMPORAIRE 

441,0 TEXT -'------ . 





—'Choix 
-11 
-12 


TEXT -'"# ! 

TEXT '# 

TEXT = ? 

TEXT 'HHH#A#AAARAAAAAAREAEAAAAAAHAHHHREE ! 
TEXT -'# 

TEXT 
TEXT 
DATA 
TEXT 
TEXT 
DATA 
TEXT 


pour trier 
code ptt 
ville 
33 cotisation 
-!4 box 
211,251,329,411;,451,491,531,;,571;0 
—"'TRI ALPHABETIQUE DES 000 FICHES 


nn ne me me me me me me me me me me me me me me me me me me me me me me me me mo meme M 


ADTEX2 
TEXT27 


TEXTOP OPERATION EN COURS 


ADD28 
TEXT29 


602,642,682,722,1762,881,0 
"OPERATION DE TRI TERMINEE...' 
—"<ENTER> 

882,0 

—"REVENIR TRI ALPHABETIQUE? O/N 
TEXT "CLASSEMENT "INACTIF" TOUTES 
TEXT -'FICHES ‘! 

TEXT " ETES-VOUS SUR DE VOTRE CHOIX ? 
TEXT -'O/N 

DATA 603,682,0 

BYTE 73,78,78,178,178,178,178,178,78 


-'1-Aucune suppression ‘ 
—'2-Supprimer les effacements 
—'"3-effacements et inactifs 
-'"4-Retour 
243,283,365,405,445,485,0 
THH###HHHH# DOUR LE TRI #########4# 
—1# Û 

‘+ 

—1# , 

"# Le Nb de fiches va de 1 a 000 


ADD29 
TEXTAL 
ADD27 TEXT46 


TEXT28 


R5,5 
RR6 
R2,ERR5 
ERR3 
R5, 6 
RRG 
R2,ERR6 
ERR3 

* affiche erreur 

RRG LI 

LI 

BL 

JMP 

LI 

BL 

LI 

GT 

BL 

ÉT 

MOV 

AI 

SWPB 

BLWP 

BLWP 


BL 
BL 
CB 


@GAFFICH 
GARRET 
R4, GUN 
TRIERI1 
R4, @DEUX 
OPT2 

R4, @TROIS 
ARRI11 
@GOVER 
QFICH 


ERR BYTE 

EVEN 

CHTRI DATA 

INVER1 DATA 

INVER2 DATA 

K DATA 

M DATA 

ECART DATA 

INDEX BSS 900 

STOCK BSS 1800 

* s/p de numerotation 

NUM LI R1,NUM 
LI RO,PAB+6 
FT “R2,2 
BLWP @VMBW 
RT 

* s/p traitement erreur 

ERREUR BL @CLEAR 
LI  RO,PAB+1 
BLWP @VSBR 
ANDI R1,>E000 
SRL R1,5 
MOVB R1,@ERR 

* fermeture fichier 
LI  RO,PAB CB 
LI  R1,ATTRIB JNE 
LI R2:,2 B 
BLWP @VMBNW 


CB 
CB 


BL 
R2,ERRG B 
R3, ADER2 * option 2 
@GAFFICH OPT2 BL 
ERR4 SETO 
R3, ADER2 LI 
GAFFICH LI 
R2,TEXTE2 BL 
R3, ADER1 BL 
@GAFFICH CB 
RO,341 JNE 
R5,R1 LI 
R1,48 JMP 
R1 CB 
@VSBW 
@KSCAN 
@RTCLA, GENT 
BKSCAN 
@FICH 

* ouverture fichier "donnees" 


@CLEAR1 
@CHTRI 
R2,TEX2 
R3, ADTEX2 
QGAFFICH 
GARRET 

R4, @UN 

C2 

R8, TPAB+60 
TRIER2 

R4, @DEUX 
C3 

R8, TPAB+65 
TRIER2 

R4, @TROIS 
C4 

R8, TPAB+100 


LI 
JMP 
CB 
JNE 
LI 


BKSCAN 


LI 
MOV 
BLWP 
DATA 
* no d'erreur 
MOVB 
SRL 
MOV 
er 
NE 
LI 
JMP 
CI 
JNE 
LI 
JMP 


R9,PAB+9 
R9, GPNTR 
@DSRLNK 
8 


@ERR, R1 
R1,8 
R1,RS 
RS,2 
RR1 

R2, ERR2 
ERR3 
RS, 1 
RRS 
R2,ERR1 
ERR3 


‘)‘) MAGAZINE n° 9 


TRIER LI 
BL 
LI 
BL 


R1,DSK1 
@SATTR 
R2,22 
@OPEN 


* enregistrement 0 


BL 
BL 
é BL 


@INPUT 
@DSR 
@READ 


* mise en mode update 


LI 
LI 
BLWP 
* options 
OPT1 BL 
LI 


LI 


RO,PAB+1 
R1,>0900 
GVSBW 


@CLEAR 
R2,TEXI1 
R3, ADTEX1 


JMP 
CB 
JNE 
LI 
CLR 
SETO 
LI 


TRIER2 


TRIER2 

R4, @GQUATRE 
ARR12 

R8, TPAB+110 
@NUMENR 
@INDX2 

R10, STOCK 


* saisie des informations a trier 


TRI8 INC 
€ 

JH 
BL 
BL 


BL 


@NUMENR 
@NUMENR, @TOT 
TRIER3 

@NUM 

@INPUT 

@DSR 


* info en somme code ascii 


MOV 


R8, RO 
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BL @ADDIT JEQ TRI3 DEC R12 
“ trans. no + ascii dans “stock” * prends la place du "e” ou "1" SLA R12,2 
MOV  G@NUMENR, *R10+ BL @NUM À R12, R2 
MOV @ASCII, *R10+ @PRINT MOV  *R2, @SOMME2 
JMP TRIS @DSR * comparaison des deux enr. 
TRIER3 B @TRIER4 @TOT C @SOMME1 , @SOMME2 
“option 1 TRIA4 JLE TRIA4 
TRIER1 BL  @CLEARI TRI3 @QTOT * invertion des enregistrements 
CLR @CHTRI TRI? DECT R1 
LI  R2,TEXT27 * nom en somme code ascii MOV *R1+,@INVERI 
LI R3,ADD27 TRI4 LI  RO,TPAB+4 MOV *R1l, @INVER2 
BL @AFFICH BL  G@ADDIT DECT R1 
@TOT, R4 *“ trans. no + ascii dans “stock” DECT R2 
LI R2,266 MOV  G@NUMENR, *R10+ MOV  *R2+,*R1+ 
LI R7,263 MOV G@ASCII, *R10+ MOV *R2, *R1 
BL  @DECI JMP TRII DECT R2 
BL  G@ARRET * enregitrement de rec 0 MOV @INVER1, *R2+ 
CB R4,@UN TRIS5 MOV @TOT,@TRI MOV @INVER2, *R2 
TRIO BL  @WRITE * suite du tri 
CB R4,@DEUX CLR  @NUMENR s 
TRIO BL  @NUM JH  TRIA3 
CB R4,@TROIS BL  G@PRINT INC GX 
TRIO BL  @DSR [oi @X, GK 
CB  R4,@QUATRE * fermeture du fichier "donnees" JH TRIAL 
[NE ARR6 TRIER4 BL  @OVER JMP  TRIA2 
B @OPTI LLLLLLLLLLLELLLELLELLLELLLLLLLLLLELEL] * initialisation “index” 
CLR  @NUMENR INDENR LI  R1,STOCK 


@ECART, @Y 


* chaque enreg. valide est dans 
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CLR 
LI 


@INDX2 
R10, STOCK 


* saisie des noms 


TRIL INC 
C 
JH 
BL 
BL 
BL 


CB 


LI 


CB 
JNE 
CB 


CB 
JNE 
C 
JNE 
DEC 
JMP 


@NUMENR 
@NUMENR, @TOT 
TRIS 

GNUM 

@INPUT 

@DSR 


R4, GUN 

TRI4 
RO,TPAB+118 
GVSBR 

R4, @TROIS 
TRI6 

R1,@I 

TRI2 

R1,GE 

TRI4 
@NUMENR, @GTOT 
TRI2 

@TOT 

TRI1 


* dernier enregis. a la place de 
* celui qui est marque "e” ou "i” 


TRI2 LI 
LI 
LI 


RO,PAB+6 
R1, TOT 
R2,2 


BLWP @VMBW 


BL 


@DSR 


* verif. si "e” ou "i” lui aussi 


LI 


RO,TPAB+118 


BLWP @VSBR 


CB 
JEQ 
CB 


R1,GE 
TRI3 
R1,@I 


* stock sur 4 octets. 
* 2 pour le no d'enregistrement 
* 2 pour la somme ASCII 


LLLLLLLLLLLLLLELLILLLLLLLLLLLLLE,)] 


LI R2,TEXT28 
LI R3, ADD28 
BL @GAFFICH 
LI R2,712 

LI R7,709 
MOV @TOT,R4 
BL @DECI 


* tri numerique sommes ascii 
* methode shell-metzner 


TRIAL 


MOV  @TOT, GECART 
CLR GX 
MOV @TOT, GK 


* coupe en deux, sortie si=0 


TRIA2 
TRIA3 


MOV @ECART,R15 
SRL R15,1 

MOV  R15, @GECART 
CI R15,1 

JL INDENR 

INC GX 

S @ECART, GK 
MOV @X,@Y 

MOV G@Y,G@M 

À @ECART, @M 


* reperage enr. Ÿ dans "stock" 


LI R1, STOCK+2 
MOV @Y,R12 

DEC R12 

SLA R12,2 

A R12,R1 

MOV  *R1, @SOMME1 


* reperage enr. M dans "stock" 


LI R2, STOCK+2 
MOV GM,R12 


LI R2, INDEX 
CLR R3 

MOV  *R1+,*R2+ 
INC R3 

[es R3, QTOT 
JH IND2 

INCT R1 

JMP  INDI 


* ouverture fichier "index" 


IND2 


MOV  @CHTRI, @CHTRI 
JNE IND4+4 

CLR G@LSAIS 

CLR  @NUMENR 

LI R1,DSK2 

BL @SATTR 

LI R2,20 

BL @GOPEN 


* mise en mode output 


LI RO,PAB+1 
LI R1,>0A00 
BLWP @VSBW 


* enregistrement de "index" 


CLR R12 

LI R1l,INDEX 

LI  RO,TPAB 

LI R2,254 
@VMBW 

A R2,R12 
R2,1 

A R2, @LSAIS 

BL G@PRINT 

BL G@DSR 

C @LSAIS, @TOT 

JHE  INDA4 


* enregistrement suivant 


INC  @NUMENR 
LI RO,PAB+6 
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LI 
LI 


LI 
A 
JMP 


R1, NUMENR 
R2,2 
@GVMBW 

R1, INDEX 
R12,R1 
IND3 


* operation terminee 


IND4 BL 
LI 
LI 
BL 
BL 
CLR 


B 


@GOVER 

R2, TEXT29 
R3, ADD29 
GAFFICH 
@ENTER 
R12 

@GFICH 


LELLELELLLLLLLELLLLLLELEELEL ZE] 


* supprime l'appartenance 


LELLELELLELLLLLLELLELLLLLLELELEL EL) 


APPGR LI 
LI 


RO,568 
R1,>3E00 


BLWP 
LI 
LI 
BL 
BL 


CB 


B 
LI 
GT 
BL 
* mode update 
LI 
LI 
BLWP 
CLR 
INC 


LOOP1. 


@VSBW 
R2,TEXT46 
R3,ADD46 
GAFFICH 
@ARRET 
R4, @GOUI 
APP1 

R4, GNON 
APP 
GNOMGR 
R2, TEXTOP 
R3, ADD46+2 
QGAFFICH 


RO,PAB+1 
R1,>0900 
@VSBW 
@NUMENR 
@NUMENR 


C 
JH 
BL 


@NUMENR, @TOT 
FINAPP 
@NUM 
BL  @INPUT 
BL  @DSR 
* charge inactif + 8 fois non 
LI RO,TPAB+118 
LI  R1,GROFF 
LI R2,9 
BLWP @VMBW 
*“ reenregistrement 
BL  @NUM 
BL @PRINT 
BL @DSR 
JMP LOOP1 
“termine 
FINAPP BL 
BL 
B 


@OVER 
@CLEAR1 
QFINI2 


Source ‘FICH3" 


TEXT30 TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 


ADD30 
ENTET1 


ENTET2 


NET 
TEXT31 
TEXT32 
TEXT33 
TEXT34 
ADD34 
TEXT35 


ADD35 
TEXT36 


TEXT37 


‘)‘) MAGAZINE 


—"XXXXXXXXXXXXXXXXXXXXXXXXX ! 
—"'X IMPRESSION DU FICHIER X 
—"XXXXXXXXXXXXXXXXXXXXXXXXX ! 
—'OPTIONS D''IMPRESSION 


annee me me mu me 


EEE EEE EEE EE 


-'1 Fichier organise 
-'2 Etiquettes 


-'"3 Retour 


47,87,127,369,409,490,530,570,0 


" No 


; TEL 


NOM PRENOM 
" ADRESSE" 


CODE VILLE 


"COTISATION 


"XXX4kx4x IMPRESSION EN COURS ***xx! 


!* 1! 


, VOULEZ-VOUS UN TITRE ? O/N 


AVEC DES GROS CARACTERES? O/N' 


"XXXXXX IMPRESSION TERMINEE XXXXX' 


_ x , 

—"<ENTER> 
683,776,0 
"+ 
-! ' 


683,0 


centrage 


centrage +" 


" VOULEZ-VOUS UN SOUS TITRE? O/N' 


ALLUMEZ L''IMPRIMANTE 


—1> : 


TEXT38 


TEXT39 


MODIMP 
SELECT 


NUMERO 


NOUVEL 


ADDTER 
ININUM 


TEXT "VOUS SELECTIONNEZ DES GROUPES ? O/' 
TEXT ="N * 

TEXT ' CHOISISSEZ O/N POUR CHAQUE GROUP 
TEXT -"E 

TEXT MODIFICATION DU NOM? O/N 
TEXT ' IMPRESSION SELECTIVE PAR No? O/! 
TEXT =2N, ? 

TEXT No DE FICHE: 000 
TEXT =") ! 

TEXT -'UN NOUVEAU CHAPITRE ? O/N 
DATA 932,0 

DATA >3030,>3000 


(ordre alpha’ 


* caracteres compresses 


COMPR 


DATA >1B43 


* caracteres dilates et gras 


BIGCAR 


DATA >1BO0E,>1B23 


* fin caracteres dilates,gras+mode normal 


FINBIG 
TIMP 
DRAP10 
INDX2 
CHOIXG 


TLIGNE 
IMP 


NOMIMP 


DATA >1B0F,>1B24,>1B4E 

EQU >1200 

DATA O 

DATA O0 

DATA >4E4E,>4E4E,>4E4E,>4E4E 

EVEN 

BSS 136 

DATA >0012,>1200,>0088,>0000 

BYTE >00 

BYTE >00 

DATA >2020,>2020,>2020,>2020,>2020,>2020 
DATA >2020,>2020 

DATA >2020,>2020,>2020,>2020,>2020,>2020 
DATA >2020,>2020 


* s/p lecture informations 


READ 


<ENTER' 


LI 
LI 
LI 


RO, TPAB 
R1, GROUPE 
R2, 94 
GVMBR 

RO, TPAB+94 
LI R1,NOMIMP 
LI R2,33 

BLWP @VMBR 

RT 


LI 
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* s/p saisie info tpab AR LI RO,760 
TRANS BLWP @VSBR @ETIQ LI  Ri,NET 
CB  R1,@POINT R4, GUN LI R2,40 
JEQ RETA AR2 @GVMBW 
MOVB R1, *R3+ CB R4,@TROIS LI R2,TEXT37 
INC RO JNE ARR7 LI R3,ADD35 
DEC R2 @DRAP10 BL  @AFFICH 
JEQ RETA4 BL  @OVER BL  @ENTER 
JMP TRANS B @FICH MOV @DRAP11,@DRAP11 
RET4 RT “ efface option 2 et 3 JEQ ARll 
* s/p efface tligne AR2 CLR R12 B @PLACE 
CLSTL CLR R2 CLR R15 AR1 B @IMPRO 
LI R1,>2000 LI RO,530 * ouvre l'imprimante 
BLANC1 MOVB R1, @TLIGNE (R2) LI  R1,NET AR11 LI  R1l,IMP 
INC R2 LI R2,12 BL @SATTR 
CI  R2,136 GVMBW LI  R2,42 
JNE BLANCI LI RO,570 BL  @OPEN 
RT LI RI,NET LI R2,TEXT32 
* verif. "index" deja charge LI R2,8 LI R3,ADD35 
IMPRES SETO @DRAP10 BLWP @VMBW BL @AFFICH 
MOV  @INDX2, @INDX2 * impression selective BL  @ARRET 
JNE  IMPRI LI  R2,SELECT CB  R4,G@NON 
B @GERER LI R3,ADD35 AR1 
* ouverture fichier "donnees" BL  GAFFICH CB  R4,@OUI 
IMPR1 LI R1,DSK1 BL  G@ARRET JNE  ARR8 
BL  @SATTR CB  R4,@NON LI R2,TEXT33 
LI  R2,22 OPGR LI R3, ADD35 
BL  @OPEN CB  R4,@OUI BL @AFFICH 
* saisie enr.0 JNE  STOP R14 
CLR  @NUMENR SETO @DRAP6 BL G@ARRET 
BL  @INPUT JMP AR8 CB  R4,G@NON 
BL @DSR * option groupes JEQ AR3 
BL  @READ OPGR LI  R2,TEXT38 CB  R4,@OUI 
* nom imprimante LI  R3,ADD35 JNE ARR9 
BL @CLEARI BL  GAFFICH *“ caracteres doubles et gras 
LI R2,TEXTO @DRAP6 LI RO, TIMP 
LI R3,ADDO BL  @ARRET LI  R1,BIGCAR 
BL @AFFICH CB  R4,G@NON LI R2,4 
LI  R1,NOMIMP+1 AR8 @GVMBW 
LI R2,32 CB  R4,@OUI LI  RO,PAB+5 
LE RO, 524 JNE ARR1O LI R1,>0400 
@GVMBW R15 GVSBW 
LI R2,MODIMP LI  R2,TEXT39 BL  @PRINT 
LT R3,ADD14 LI R3, ADD35 BL @DSR 
BL  CAFFICH BL  @AFFICH * saisie titre 
BL  G@ARRET R8 AR3 BL  G@OVER 
CB  R4,@NON @LGR LI R2,TEXT35 
JEQ ARO RO, 770 LI R3,ADD35 
R1, GROUPE BL  @AFFICH 
@LGR,R1 BL  @CLSTL 


JNE ARR16 R2,11 LI R2,40 
@DRAP1 @GVMBW R2,G@LSAIS 
@DRAP2 @DRAP2 LI RO,760 
@DRAP4 @GDRAP4 LI R7,TLIGNE 
@CLS24 RO, 782 SETO @DRAP4 
R12 R2,1 CLR @DRAP2 
@IMPR+4 R2,@LSAIS BL @ACCEPT 
@CLEAR R7,CHOIXG DEC R2 
@DRAP4 R8,R7 MOV R2,R13 
R2,TEXT30 @ACCEPT * reouvre dis/Var(R2) 

R3, ADD30 @D11,@LGR LI RO,PAB+5 
QGAFFICH R8 MOV R2,R1 
@ARRET R8, @NGR SWPB R1 

R4, @DEUX AR7 BLWP @VSBW 


* modif du nom 
CB  R4,@OUI 
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BL 
* impression 

LI 

GT 


BL 
BL 
MOV 
JNE 


@DSR 


RO, TIMP 
R1, TLIGNE 
@VMBW 
@PRINT 
@DSR 
R14,R14 
AR9 


* soulignement 


LI 
AR4 BLWP 


BL 


RO, TIMP 
@VSBR 
R1, @BLANC 
ARS 

RO 

AR4 
R1,>7E00 
@GVSBW 

RO 

R13 

AR6 
@PRINT 
@DSR 


“ lignes blanches 


BL 
BL 
LI 
BL 
BL 
CB 
JEQ 


@CLSTI 
@CLSTP 
R1,1 
@SAUTLI+4 
@DSR 

R4, @GNON 
IMPRO 


* fin gros caracteres gras 


LI 
LI 
LI 


LI 
LI 


BL 
BL 
BL 


* reouverture mode dis/var 136 


LI 
LI 
BL 
* sous titre 
IMPRO LI 
LI 
LI 


LI 
LI 
BL 
BL 
CB 


RO, TIMP 
R1,FINBIG 
R2,4 
GVMBW 

RO, PAB+5 
R1,>0400 
QVSBW 
@PRINT 
@DSR 
@GOVER 


R1,IMP 
R2,42 
@GOPEN 


RO, 760 
R1,NET 
R2,40 
GVMBW 
R2,TEXT36 
R3, ADD35 
QAFFICH 
@ARRET 
R4, GNON 
AR9 

R14 
GAR3+4 
R1,NET 
RO, 680 
R2,40 
@VMBW 
R2,TEXT31 
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LI 
BL 
LI 
LI 
LI 
BLWP 


* caracteres compresses 136/ligne 


LI 
LI 
LI 


LI 
LI 
BLWP 
BL 
BL 


R3, ADD35 
QAFFICH 
RO, 760 
R1,NET 
R2,40 
GVMBNW 


RO, TIMP 
R1, COMPR 
R2,2 
GVMBW 
RO,PAB+5 
R1,>0200 
@GVSBW 
@PRINT 
@DSR 


“ imprime l'en tete 


LI 
LI 


LI 
LI 
LI 
LI 


BL 
LI 


JNE 
BL 
CLR 


RO, PAB+5S 
R1,>8800 
QVSBNW 
R3,2 

RO, TIMP 
R1,ENTETI1 
R2,136 
@VMBW 
@DSR 

R1, ENTET2 
R3 

ENT2 
@INIDSK 
@LGR 


* saisie par numero 


MOV 
JEQ 
SETO 
LI 
LI 
BL 
LI 
LI 
BL 
LI 
LI 


JNE 


LI 
LI 
LI 
MOV 
BL 
CI 
JNE 


@DRAP6, GDRAP6 
TRITEM 
R12 

R2, NUMERO 
R3, ADD35 
QGAFFICH 
R2, TEXTG2 
R3, ADDTER 
@GAFFICH 
R2, ININUM 
R3,TLIGNE 
*R2+,*R3+ 
MOUVI1 
@DRAP2 
GDRAP4 
RO, 699 
R7,TLIGNE 
R2,3 

R2, GLSAIS 
@GACCEPT 
R2,3 

MOUV 


* transforme ascii en hexa 


LI 
SWPB 
LI 
CLR 
MOVB 
AB 
MOV 
MOVB 
AB 


R2,-48 

R2 

RO, TLIGNE 
R1 

*RO+,R1 
R2,R1 

R1, GNUMENR 
*RO+,R1 
R2,R1 


À 
AB 
CLR 


MOVB 
SWPB 


À 

MOV 
JEQ 
JMP 


R1,4 

R1, @GNUMENR 

R2, *RO 

R1 

*RO,R1 

R1 

R1, @GNUMENR 
@NUMENR, GNUMENR 
MOUV 

AUTRE+4 


* sitritemporaire 


TRITEM C 
JEQ 
MOV 
JEQ 
MOV 
MOV 


@TRI, @TOT 
AUTRE 

@CHTRI, @CHTRI 
AUTRE 
@QTRI,@LSAIS 
@TOT,@TRI 


“ saisie enregistrements 1 a tot 


AUTRE INC 
C 
JLE 
MOV 
JEQ 
MOV 
AUTR1 B 
IMPR2 BL 
BL 
IMPR3 BL 
BL 


@NUMENR 
@NUMENR, @TOT 
IMPR2 
@CHTRI, @CHTRI 
AUTRI 
@LSAIS, QTRI 
@FINIMP 
@CLSTL 

QPASS 

@INPUT 

@DSR 


* controle option groupe 


MOV 
JEQ 
LI 
LI 
LI 


CONTRI 


CONTR2 


IMPR6 B 
IMPR7 B 


R15,R15 
IMPRS 

RO, TPAB+118 
R1, BUFGR 
R2,9 

@GVMBR 
@NLIG 

R1, BUFGR+1 
R2,CHOIXG 
*R2, @OUI 
CONTRI 

R2 

R1 

CONTR2 
*R2+,*R1+ 
IMPRS 
@NLIG 
@NLIG, @NGR 
CONTR 
@DRAP11,@DRAP11 
IMPR6 
AUTRE 
@LOOP 
@PLACEL 


* no dans tligne 


IMPRS5 MOV 
JNE 
INC 


MOV 
LI 
LI 
BL 
LI 
LI 


@DRAP11,@DRAP11 
IMPR7 
@LGR 


@LGR, R4 
R2,TIMP+2 
R7,TIMP-1 
@DECI 

RO, TIMP 
R1,TLIGNE 
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LI 
BLWP 
* nom prenom 
LI 
LI 
LI 
BL 


LI 
LI 
LI 
BL 
* code postal 
LI 
LI 
LI 
BL 


LI 
LI 
LI 
BL 


LI 
LI 
LI 
BL 


LI 
LI 
LI 
BL 
* cotisation 
LI 


R2,3 
@VMBR 


RO, TPAB+4 
R3, TLIGNE+S 
R2,28 
@TRANS 


RO, TPAB+32 
R3, TLIGNE+33 
R2,28 

@TRANS 


RO, TPAB+60 
R3,TLIGNE+62 
R2,5 

@TRANS 


RO, TPAB+65 
R3, TLIGNE+68 
R2,20 

@TRANS 


RO, TPAB+85 
R3, TLIGNE+89 
R2,15 

@TRANS 


RO, TPAB+110 
R3, TLIGNE+105 
R2,8 

@TRANS 


RO, TPAB+100 


LI 
LI 
BL 


* no de licence 


LI 
LI 
LI 
BL 


R3,TLIGNE+115 
R2,4 
@TRANS 


RO, TPAB+104 
R3, TLIGNE+121 
R2,6 

@TRANS 


“ tligne dans timp 


LI 
LI 
LI 
BLWP 


RO, TIMP 
R1, TLIGNE 
R2,136 
GVMBW 


“init pab imprimante 


BL 
BL 
BL 
BL 


@GINIIMP 
@SATTR 
@GPRINT 
@DSR 


*“reinit pab fichier 


GINIDSK 
@SATTR 
R12,R12 
AUTR2 
@GAUTRE 
@MOUV 
@GOVER 


@CLS24 
@REMISE 
@OVER 
R2,TEXT34 
R3, ADD34 
@GAFFICH 
@GENTER 
R12 


CLR 
CLR 
CLR 
CLR 
B 


@GDRAP2 
@DRAP4 
@DRAP6 
@DRAP10 
@FICH 


* nouveau chapitre? 


NOUVE LI 
LI 
BL 
BL 
CB 


CB 
UNE 
BL 


BL 
B 


R2, NOUVEL 
R3, ADDRET 
GAFFICH 
@GARRET 
R4, GNON 
FINIMP 
R4, GOUI 
STOP2 
@CLS24 
R12 
@REMISE 
GAR12 


* s/p mode normal imprimante 


REMISE MOV 
BL 
BL 
LI 
LI 
LI 


LI 
LI 


BL 
BL 


RT 


R11, @SAVRET 
@INIIMP 
@SATTR 
RO,FINBIG+2 
R1, NORM 
R2,4 

GVMBNW 
RO,PAB+5 
R1,>0400 
@VSBW 
@PRINT 

@DSR 
@SAVRET,R11 


LLLLLLLLLELELE LE) 


* ETIQUETTES 


LLLLLLLLLLLEL EEE MG 


DRAP11 DATA O 
* options etiquettes* 


* s/p init pab disquette 
DATA O INIDSK LI  RO,PAB 
ENTRE DATA 4 LI R1,DSKI1 
anne nnnnnnnnnnne nes ' SAUT DATA 5 LI  R2,22 
-'MISE EN PLACE NBETIQ DATA 2 BLWP @VMBW 

LÉ 1-pas de modification : LELLELELLELLLELLLELLLELE RT 
-'2-modification ! TOTAL DATA 72 * s/p mode disWar (total) 
-"3-retour EMPLAC DATA O DISVAR LI RO,PAB+5 
369,409,533, 609,649, 689,0 * nb de colonnes de l'imprimante MOV @TOTAL,RI 
-'GROUPES A IMPRIMER MAXI DATA 80 SWPB R1 
TS 0 EVEN BLWP @VSBNW 
DATA 450,490,0 * s/p impression de la ligne RT 

TEXT -'MODIFICATION DE MISE EN PLACE IMPLIG MOV R11,@SAVRET * s/p sauts de lignes 
TEXT -' Marge de gauche : : LI RO, TIMP SAUTLI MOV G@SAUT,RI 
TEXT -' Ecart central OL LI R1,TLIGNE ; LI RO, PAB+S5 
TEXT -! Sauts de lignes @TOTAL, R2 MOV R1,R2 
TEXT -'Nb d''etiq/ligne : ‘ GVMBW SWPB R1 

DATA 525,609,649,685,731,0 BL  @PRINT BLWP @VSBW 
TEXT 'TITRE..NOM...PRENOM BL  G@DSR LI  RO,TPAB 
TEXT 'ADRESSE..... BL @CLSTL LI R1,HEX10 
TEXT 'CODE.POSTAL....VILLE MOV G@SAVRET,RI11 BLWP @VMBW 
TEXT -'LIGNE D''IMPRESSION TROP LONGUE RT RT 

TEXT -' EMPLACEMENT CORRECT? O/N : * s/p init pab imprimante * s/p de placement 
TEXT ‘ IMPRESSION CARATERES GRAS? O/' INIIMP LI RO,PAB PLACER LI RO, TIMP 
TEXT -'N LI  R1l,IMP À @MG, RO 

* code imprimante pour saut de ligne [CHR$(10)] LI  R2,42 BLWP @VMBNW 
HEX10 DATA >OAOA, >OAOA, >OAOA, >OAOA, >OAOA BLWP @VMBW A R2,RO 


TEXT40 TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 


TEXT 


—"ETIQUETTES D''ADRESSES 


ADD40 
TEXTA41 


ADD41 
TEXT42 


ADD42 
FORMI 
FORM2 
FORM3 
TEXT43 
TEXT44 
TEXTA45 
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À 


@ENTRE, RO 


BLWP @GVMBW 


RT 


* s/p efface timp 


CLSTP LI 
LI 
LI 


BLWP 


RT 
BL 
LI 
LI 
BL 
BL 
CB 


JEQ 


CB 


JEQ 


CB 


JNE 


B 


RO, TIMP 
R1,TLIGNE 
R2,80 
GVMBW 


@CLEAR1 
R2,TEXTA40 
R3,ADD40 
CAFFICH 
@GARRET 
R4, @UN 
ETIQ2 

R4, @DEUX 
ETIQ1 
R4,@TROIS 
ARR13 
@ARO 


* modif de mise en place 


ETIQ1 LI 
LI 
BL 


LI 
A 
À 
À 
A 
LI 
LI 


LI 
À 
LI 
À 


BL 
À 


INCT 
DEC 
JNE 


R2,TEXTA42 
R3, ADD42 
@GAFFICH 
@DRAP2 
@DRAP4 
@DRAP6 
@NLIG 
@LGR 
R6,48 

R6, GMG 
R6, GENTRE 
R6, GSAUT 
R6, GNBETIQ 
RS, 4 

R2,1 

R2, @GLSAIS 
RO, 629 
@NLIG, RO 
R1,MG+1 
@LGR,R1 
R1,R7 
@GACCEPT 
@D40,G@NLIG 
@LGR 

RS 

MG2 


* tranforme en nombre 


LI 
À 
À 
À 
À 


R6,-48 

R6, @MG 

R6, @GENTRE 
R6, @GSAUT 
R6, GNBETIQ 
@D33,@TOTAL 
@NBETIQ, R2 
R2 

M1 
@D33,@TOTAL 
MO 

@MG, @TOTAL 


@ENTRE, @TOTAL 


@TOTAL, @GMAXI 
ETIQ2 
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* impossible 
LI 
LI 
BL 
BL 
BL 
JMP 


R2,TEXT43 
R3, ADD14 
QGAFFICH 
@GARRET 
@CLS24 
MG1 


* choix des groupes 


ETIQO2 BL 
LI 
LI 
BL 
SETO 
CLR 
B 


@CLEAR1 
R2,TEXTA41 
R3, ADD41 
GAFFICH 
@DRAP11 
@DRAP6 
@CHGR 


* ouvrir l'imprimante 


PLACE LI 
LI 
BL 
LI 
LI 
BL 
BL 
CB 


CB 
JNE 


R1,IMP 
R2,43 
@OPEN 
R2,TEXTA45 
R3, ADD35 
GAFFICH 
@ARRET 
R4, @GNON 
MG3 

R4, @GOUI 
ARR14 


* init caracteres gras 


LI 
LI 
LI 


LI 
LI 


BL 
BL 
MG3 BL 


* etiquette test 


BL 
BL 
LI 
LI 
BL 
LI 
LI 
BL 
* {ere ligne 
BL 
BL 
* 2ieme ligne 
BL 
LI 
LI 
BL 
BL 
* 3ieme ligne 
BL 
LI 
LI 
BL 
BL 


MOV 


RO, TIMP 

R1, BIGCAR+2 
R2,2 

GVMBW 

RO, PAB+5 
R1,>0200 
GVSBNW 
@PRINT 

@DSR 
@DISVAR 


@CLSTL 
@CLSTP 
R1, FORMI 
R2, 33 
@PLACER 
R2,TEXT31 
R3, ADD35 
QGAFFICH 


@PRINT 
@DSR 


@CLSTP 
R1, FORM2 
R2,.33 
@PLACER 
@DSR 


@CLSTP 
R1, FORM3 
R2, 33 
@PLACER 
@DSR 


@SAUT, @GSAUT 


JEQ 
BL 
BL 
BL 
LI 
LI 
BL 
BL 
CB 


CB 


BL 
B 


BL 
BL 
LI 
LI 
BL 
CLR 


CORR 
@SAUTLI 
@DSR 
@DISVAR 
R2,TEXTA44 
R3,ADD14 
GAFFICH 
@ARRET 
R4, @GOUI 
MG4 
R4, @NON 
ARR1S 
@CLEARI 
@ETIQ1 
@DRAP2 
@DRAP4 
@DRAP6 
@NUMENR 
@LSAIS 
@NBETIQ, R13 
@CLS24 
@CLSTL 
R2,TEXT31 
R3, ADD35 
QGAFFICH 
R8 


*“ enregistrements 


LOOP INC 
C 
JH 
BL 
BL 


BL 

B 
CI 
JEQ 
B 

* stockage 

PLACEO SETO 
BL 
LI 
LI 
LI 


PLACE LI 
A 
LI 
LI 


A 


“titre 
PLACE2 


PLACE3 
PL1 


@NUMENR 
@NUMENR, @TOT 
L1 
@INIDSK 
@SATTR 
R15 
@NUM 
@IMPR3 
R13, 1 
PLACEO 
QFIN 


R8 

@CLSTL 
RO, TPAB 
R1,TLIGNE 
R2,127 
GVMBW 

R1, STOCK 
@LSAIS, R1 
R2,118 
RO, TPAB 
@VMBR 

R2, GLSAIS 
R13 

LOOP 
@INIIMP 
@SATTR 
@DISVAR 


R3, STOCK 
R3, @GEMP LAC 
R4,TLIGNE 
@MG, R4 
@NBETIQ,R5 
R2,4 

*R3, GPOINT 
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JEQ 
MOVB 
DEC 
INE 
* nom prenom 
PLACE4 LI 
INC 
MOV 
AI 
CB 


LI 
A 
LI 
MOV 
JMP 
PLA BL 
* adresse 
LI 
LI 
A 
MOV 
PLACES LI 


PLACEA4 
*R3+,*R4+ 
R2 

PLI1 


R2,28 

R4 

@EMP LAC, R3 
R3,4 

*R3, GPOINT 
PL3 
*R3+,*R4+ 

R2 

PL2 

RS 

PL4 

R4, TLIGNE+33 
@GENTRE, R4 
R3,STOCK+118 
R3, GEMP LAC 
PLACE3 
@IMPLIG 


R3, STOCK+32 
R4, TLIGNE 
@MG, R4 
@NBETIQ,RS 
R2,28 


LI 
LI 
À 
JMP 

PL7 BL 

* code et ville 
DT 
MOV 
LI 
A 


PLACE6 
PL8 


PLACE7 


*R3, GPOINT 
PL6 
*R3+,*R4+ 

R2 

PLS 

RS 

PL7 

R3, STOCK+150 
R4, TLIGNE+33 
@GENTRE, R4 
PLACES 
@IMPLIG 


R3, STOCK+60 
R3, @EMP LAC 
R4,TLIGNE 
@MG, R4 
@NBETIQ, RS 
R2,5 

*R3, POINT 
PLACE7 
*R3+,*R4+ 
R2 

PL8 

R2,20 

R4 

@EMP LAC, R3 
R3,5 


SUIVRE 


B 
BL 
BL 


B 


*R3, @POINT 
PL10 
*R3+,*R4+ 

R2 

PL9 

R5 

PL11 

R4, TLIGNE+33 
@ENTRE, R4 
R3, STOCK+178 
R3, @EMP LAC 
PLACES 
@IMPLIG 


@SAUT, GSAUT 
SUIVRE 
@SAUTLI 
@DSR 
@DISVAR 
@LSAIS 
@NBETIQ, R13 
R8,RB8 

FIN 

@LOOP 
@INIDSK 
@SATTR 
@GDRAP11 
QFINIMP 


ES 


Source ‘FICH4" 


LLLLELLLLLLLELLELLLELE) 


* MODIFIER UN NOM 


LLLLELELLLLLELLLLLELE) 


TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
EVEN 


LLLLLLLLLLLLLLLLEL:) 


="vous ‘ 
‘pouvez, ne mettre 
-'que ' 


—-'-les 3 premieres lettres du nom 


pour la saisie, 


* s/p d'attente 
DELAI CLR 
INC 
ONE 
RT 

DATA O 
TEXT -! 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 
TEXT 
TEXT 
TEXT 
DATA 
TEXT 


R15 
R15 
DELAI +2 


—-'-la premiere lettre du prenom ‘ 
‘sans oublier l''espace entre ‘ 
—-'nom-prenom 

—'<ENTER> 

DRAP 4 441,481,521,561,601,775,0 


TEXTI1 


ADDEX 
modifier une fiche L 
—-'Rentrez le nom de la personne ‘ 
-'que vous voulez modifier. BL 
—'NOM Prenom: ‘ LI 
48,:325;:9367;520,0 LI 
"NOM INCONNU AU FICHIER!'...<ENTER' BL 
=> 7? BL 
-'"LE FICHIER EST VIDE!...<ENTER> MODIFO BL 
—'NOM DEJA SUR FICHIER!...<ENTER> GI 
925,0 LI 
-'UNE AUTRE MODIFICATION ? O/N BL 
TEXT -'inactif “ saisie du nom 
DATA 229,0 MODIFI1 LI R1,>2E00 
TEXT -‘ actif ! BL @INITAM 
TEXT "SI VOUS AVEZ MODIFIE LE NOM OÙ LE' LI RO, 532 
TEXT -' PRENOM LI R1, TAMPON+4 
TEXT 'D''UNE PERSONNE, FAITES FONCTIONNE" R1,R7 
TEXT -'R LE LI R2,28 
TEXT -'PROGRAMME DE TRI IMPERATIVEMENT. CVMBW 
TEXT -'<ENTER> R2,@LSAIS 
DATA 520,601,684,775,0 @DRAP2 
TEXT "Dans MODIFIER, EFFACER, AFFICHER, @ACCEPT 


MODIF @CLEARI 
R2,TEXTEX 
R3, ADDEX 
GAFFICH 
@ENTER 
@CLEAR1 
R2,TEXTI1 
R3,ADD11 


QGAFFICH 


ADD11 
TEXT12 


TEXT13 
TEXT14 
ADD14 
TEXT1S 
TEXTI 
ADDI 
TEXTA 
TEXTRI 


ADDTRI 
TEXTEX 
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* transfert dans tpab 
LI  RO,TPAB+4 
LI R1,TAMPON+4 
LI  R2,28 
BLWP @VMBW 
* somme codes ascii 
BL @ADDIT 
MOV @ASCII, @SOMME1 
CLR  @DRAP3 
* recherche dans fichier 
BL  @RBLOC 
MOV  @DRAP, @GDRAP 
JNE  AUTMOD 
“ transfert dans "tampon" 
LI  RO,TPAB 
LI R1l,TAMPON 
LI  R2,127 
BLWP @VMBR 
* verifie si effacement 
MOV  @DRAP7, @DRAP7 
JNE  MOD4 
MOVB G@BUFGR, R3 
CB  R3,@E 
JNE MODIF2 
BL  @CLEARI 
LI R2,TEXT18 
LI R3,ADD18 
BL G@AFFICH 
BL G@ARRET 
CB  R4,G@NON 
AUTMOD 
CB  R4,@OUI 
JNE ARR3 
* reintroduction 
LI  RO,TPAB+118 
MOVB @A,R1 
BLWP @VSBW 
SETO @DRAP4 
B @AJENRA 
“affichage 
MODIF2 MOV @DRAP5, @DRAP5 
JNE MOD3 
BL  G@CLEARI 
LI  R2,TEXT6 
LI  R3,ADD6 
BL  @AFFICH 
* actif ou inactif 
MOVB @BUFGR, R4 
CB  R4,@I 
JNE ACTIF 
LE R2,TEXTI 
LI R3,ADDI 
BL  @AFFICH 
NUM1 
LI R2,TEXTA 
LI R3,ADDI 
BL  C@AFFICH 
MOV GALPHA, R4 
SETO @DRAP4 
CLR  @DRAP3 
B @AJOUT4 
* autre modification ? 
AUTMOD BL  @CLS24 
MOV  @DRAP5, @DRAP5 
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MOD1 
MOD2 
MOD3 
MOD4 


MODS 


PPT TT TTTIIT TT 0 EFFAL ET RO,TPAB+118 


MOD1 EFFACE BL  @CLEARI 
@DRAP7, @DRAP7 LI R2,TEXTEX 
MOD5 LI R3,ADDEX 
R2,TEXT15 BL  G@AFFICH 
BL G@ENTER 
BL  @CLEARI 
LI  R2,TEXT16 
LI  R3,ADD16 
BL @AFFICH 
* saisie du nom 
SETO @DRAP5 
B @MODIFI1 
* autre effacement? 
AUTEFF LI  R2,TEXT17 
LI R3,ADD14 
BL @AFFICH 
@DRAP 
@DRAP2 
@DRAP4 


R3, ADD14 
@QGAFFICH 
@DRAP 
@DRAP2 
@DELAI 
@ARRET 
R4, @OUI 
MOD2 

R4, GNON 
ARRI1 
@CLEAR1 
R2,TEXTRI 
R3, ADDTRI 
GAFFICH 


@ENTER 
@OPT BL @GARRET 


@GAUTEFF CB R4, @OUT 
@MODIFO EFFA2 
GEFFAl CB R4, @GNON 
GALPHA, @GNUMENR JNE  ARR2 


@RECH2 _ B GOPT 
@RECH6 * routine marque "E 


* EFFACER UN NOM MOVB @E,R1 
LLLLLLELLLLLLLELELE EL] BLWP @VSBW 


DRAP 


5 DATA O0 


TEXT16 TEXT -' effacer une fiche , 


ADD1 


TEXT -'Rentrez le nom de la personne 
TEXT -'que vous voulez effacer. 
TEXT -'NOM Prenom: 

6 DATA 48,365,407,520,0 


TEXT17 TEXT -' UN AUTRE EFFACEMENT ? O/N ‘ 
TEXT18 TEXT -'LA FICHE EST MARQUEE EFFACEMENT 


ADD1 


TEXT -'REINTRODUCTION ? O/N 
8 DATA 525,610,0 
EVEN 


LLLLLLELLLELLLELELE:) 


* reenregistrement de la fiche 
SETO @DRAP4 
B @AJENRA4 


LLLLLLLLLLLLLLLELLL LL EL] 


* MODIFIER UN GROUPE 

LLLLLLLLELLELLLLLLLLEEL] 

E8375 BYTE O 

DRAP6 DATA O 

NOGR DATA O 

TEXRET TEXT -'<BACK> = retour 

ADDRET DATA -926,0 

TEXTEF TEXT -' effacer dernier groupe ‘ 
TEXT -'Appuyez sur la barre <ESPACE> 
TEXT -'pour effacer le dernier groupe. 
TEXT -'<ENTER> = ARRET 

TEXTCO TEXT -! corriger un groupe F 
TEXT -'Rentrez le numero du groupe 
TEXT -'que vous voulez corriger 
TEXT -'No du groupe 

TEXTAJ TEXT -! ajouter un groupe y 
TEXT -'Rentrez le nom du nouveau groupe 

TEXNOM TEXT -'Nom du groupe 
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TEXT 
DATA 48,285,325,663,0 
ADDAJ DATA 48,282,663,703,0 
ADDCO DATA 48,285,327,543,0 BL 
ADDNOM DATA 663,703,0 B @INS1 
ADD13 DATA 403,443,483,523,563, 603,643, 683 INS4 B GAFFIGI 
DATA 723,763,803,843,0 * saisie du nouveau nom 
TEXT -'PLUS DE GROUPE LIBRE <ENTER> SGROUP LI  R2,8 
EVEN G @NGR, R2 
LELLLLLLLLLELLLLLE DEC R2 JHE TOUSUT 
JNE EFFG MOV @D11,@LSAIS 
CLR @DRAP6 LI R3,GROUPE 

GT R3,ADD13 JMP  INS1 MOV  @NGR,R1 

BL  @AFFICH INS6 CLR G@DRAP6 MPY @D11,R1 

LI R2,TEXRET B @ENREGO A R2,R3 

LI R3,ADDRET * ajouter un nom de groupe MOV R3,R7 

BL @GAFFICH AJNOM MOVB @UN, @E8375 LT RO, 784 

LI  R3,8 LI  R2,TEXTAJ CLR  @DRAP2 

CLR &@LGR LI R3, ADDAJ SETO @DRAP4 

ÊT (R2,.411 BL @AFFICH BL G@ACCEPT 

LI RO,487 JMP  SGROUP LI RO, 784 
* inscrire les groupes INS5S B @INS2 BLWP @VSBR 


@D11,G@LSAIS 
@DRAP2 
R1,R7 
@ACCEPT 


ADDEF 


TEXT19 


MODGR BL @CLEARI1 
ET R2, TEXTG1 


INSGR LI 
À 
BLWP 


R1, GROUPE 
@LGR, R1 
GVMBW 
@D40,RO 
@D11,@LGR 
R3 


* corriger un nom de groupe 


CORNOM LI 
LI 
BL 


R2, TEXTCO 
R3, ADDCO 
GAFFICH 


MOVB @DEUX, @E8375 
* saisie du No de groupe 


CB 
JEQ 
INC 
CLR 
B 


R1, GBLANC 
SGROUP 
@NGR 
@DRAP6 
@INS1 


* autre modification? 


SAISNO SETO @DRAP4 INS2 LI 
@DRAP7, @DRAP7 SETO @DRAP2 LI 
SAISNO CLR  @NOGR BL 
@DRAP6, @DRAP6 LT R2,1 BL 
INSS5 LI RO,557 CB 
SETO @DRAP6 LI R7,NOGR+1 JNE 
* orientation R2,@LSAIS 
CB  @RTCLA, @DEUX BL G@ACCEPT B 
JEQ CORNOM CB  @NOGR+1, GUN CB 
CB  @RTCLA, @UN JL  SAISNO JNE  ARR4 
JEQ AJNOM LI R1,-48 CLR @DRAP6 
* effacer groupe A R1, @NOGR MOVB @E8375,@RTCLA 
LI R2,TEXTEF C @NOGR, @NGR B @MODGR 
LI R3,ADDEF JH  SAISNO * tous les groupes sont utilises 
BL @QAFFICH MOV  G@DRAP7, @DRAP7 TOUSUT LI R2,TEXT19 
BL @ARRET Le JNE INS4 LI R3,ADD14 
BL @BLOQ affichage et saisie groupe BL  @AFFICH 
UNE STOP3 LI  R2,TEXNOM BL  G@ARRET 
CB R4,@BLANC LI R3, ADDNOM CLR @DRAP6 
EFFGR BL  @AFFICH B @ENREGO 
CB R4 : @NOGR, R1 LELLELELELLLELLELLLLLLELLEEL) 
A @D11,R1 * PROGRAMME D'AFFICHAGE 
CB R4 L @BACK LI RO ” 784 LELLLLELELLELLLELELLLLELLLEL) 
JNE STOP3 LI R1,GROUPE-11 


B @NOMGR LI  R2,11 
@NGR BLWP @VMBW 
@NGR, R2 
@TROIS, @RTCLA 
@D11,R2 

LI R1i,GROUPE 

A R3,R1 
R1,RS 

ÉT  jR2,11 

LI R3,NET 

MOVB *R3, *R1+ 


R2,TEXT15 
R3, ADD14 
GAFFICH 
@GARRET 
R4, GNON 
INS3 
@DRAP6 
@ENREGO 
R4, @OUI 


INSGR 


-> result. R2 


DRAP 7 
DRAP8 


DATA 0. 
DATA O 
DRAP9 DATA O 
TEXT20 TEXT -'AFFICHER UN NOM 


TEXT lasse ense esse à 
TEXT -'Rentrez le nom de la personne 


TEXT -'que vous voulez afficher. 
TEXT -'NOM Prenom : 

DATA 251,291,365,407,520,0 

TEXT -'AFFICHER UN GROUPE 

TEXT -'-m-mmmmemmmmmmmmse è 

TEXT -'No du groupe 

TEXT -'a afficher 


ADD20 
TEXT21 





ADD21 248,288,503,543,0 
TEXT22 -' effacement 
TEXT23 


TEXT "memes L 
ADD23 DATA 
200,240,311,351,391,431,471,509,549,0 
AFFECR DATA 322,402,482,562,568,642,1722,127,802 
TEXT24 TEXT -' UN AUTRE AFFICHAGE ? O/N 
TEXT25 TEXT '<ENTER> autre fiche <BACK> arre' 
TEXT'= UE. ! 
TEXT -'FIN DU FICHIER 
DATA 
EVEN 


-'Enregistrement No Marque: 


—!"XXXXXXXXX 


—-'"x ordre x 


TEXT26 <ENTER> 


—-'x alpha x 
1x 000 x 
—"'XXXXXXXXX ! 
—'Dans groupe 


ÉPTLLIELIIILL] *R3+,R2 * tout le fichier MOV  @LSAIS, @TRI 


LELLLLELLLLLLLLLELE EL) 


* une fiche 


LLLLLLELLLELEL EL] 


RECH1 BL 


@CLEARI 


RECHS 
RS, R7 
*R4+,RO 


FITERL1 B @OPT 


LLLLLLLLLLLE EL] 


TOUTFI SETO @DRAP7 


SETO G@DRAP8 


* un groupe 


LELLLLELLELLLLE EL] 


LI R2,TEXTEX R6 CLR  @NUMENR 
LI R3,ADDEX *R7+,R1 “ cas de tri temporaire AFFIGR BL 
BL  @AFFICH R1, @POINT c @TRI,@TOT LI R2,TEXT21 
BL @ENTER RES JEQ TOUTI LI R3,ADD21 
BL @CLEARI GVSBW MOV @CHTRI, @CHTRI BL QGAFFICH 
LI  R2,TEXT20 RO JEQ TOUTI SETO @DRAP6 
LI R3, ADD20 R6 MOV @TRI,G@LSAIS SETO GDRAP7 
BL  @AFFICH C R6, R2 MOV @TOT,@TRI B @MODGR+4 
SETO @DRAP7 JL RE4 * saisie de la fiche * recherche des fiches 
B @MODIF1 RES A R2,R5 TOUT1 INC G@NUMENR AFFIG1 SETO @DRAP9 
* No, actif,inactif,effacement JMP RECHA4 C @NUMENR, @TOT B @TOUTFI 
RECH2 BL  G@CLEARI “affichage des groupes JH  FITERM 
LI R2, TEXT23 RECHS LI R3, BUFGR BL @PASS 
LE R3, ADD23 LI R2,11 BL  @INPUT 
BL  @AFFICH @NLIG BL @DSR 
€ @NUMENR, @TRI GLGR FT RO, TPAB 
JH  RECH? ENGR, R4 LI  R1l,TAMPON 
@SECT, R4 R4 LT R2,127 
RECH8 R4 BLWP @VMBR 
@NUMENR, R4 RECH6 * routine de recherche de groupe 
LI R2,220 R3 MOV  @DRAP9, @DRAP9 
À A R R7,217 LI RO,589 JEQ TOUT2 
BL @DECI LI R1, GROUPE-11 MOV  @NOGR, R2 
@NUMENR, R4 À @D11,@LGR CB  @BUFGR(R2),@OUI 
LI  R2,436 CB  *R3,@OUI JNE TOUTI 
LI R7,433 RET TOUT2 CLR @DRAP2 
BL  G@DECI A @NLIG, RO B @RECH2 
@GBUFGR, R4 À @LGR,RI * <enter> ou <back> 
CB R4,@E BLWP @VMBW SUITFI LI 
ACT A @D40,@NLIG LI 
LI R2,TEXT22 JMP RE BL 
LI R3,ADDI * autre fiche? ï BL 
BL CAFFICH RECH6 MOV @DRAP8, @DRAP8 MOV 
RECH3 JUNE SUITFI UNE 
CB R4,@A LI R2,TEXT24 MOV 
INAC LI R3, ADDRET JEQ 
LI R2,TEXTA BL  GAFFICH MOV 
LI  R3,ADDI BL  GARRET B 
BL  C@AFFICH CB  R4,G@NON * fin du fichier 
JMP RECH3 RE2 FITERM BL 
LI R2,TEXTI B GOPT LT 
LI  R3,ADDI CB  R4,@OUI LT 
BL  @AFFICH JNE ARRS BL 
* affichage informations CLR  @DRAP BL 
RECH3 LI  R3,NBSAIS CLR  @DRAP2 
LI R4 dé AFFECR RS 
LI  R5,TAMPON 


@CLEAR1 


[99 Magazine 


LÉHE EEE EEE PE RE EE EEEES 


99 Magazine 





*“ s/p passage eventuel "index 
PASS  C @NUMENR, @TRI 
R2, TEXT25 JH  TOUT3 
R3,ADD14 LI R1,INDEX 
QGAFFICH @NUMENR, R2 
@ENTER R2 

@DRAP2, @DRAP2 R2,1 

TOUT1 R2,R1 
@CHTRI, @CHTRI *R1, @GSECT 
FITERI TOUTA4 
@LSAIS, @TRI R1, NUMENR 
@OPT RO, PAB+6 
R2,2 

@VMBW 


TOUT3 
TOUTA4 


@CLEAR1 
R2,TEXT26 

R3, ADD26 
GAFFICH 
GARRET 
@CHTRI, @CHTRI 
FITERI 
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Ticrok 


e suis Ticrok le 

Touge. Si vous 

arrivez à me capturer, 

étant impulsif et 
coléreux de nature, je me 
détruirais en vous laissant le gain 
de la partie. 


Ne rêvez pas trop quand même ; 
dans ma petite tête de monstre, 
j'ai plus d'un piège en réserve. 
Soyez assuré que, le moment 
venu, je saurais les utiliser contre 
VOUS. 


Monstre je suis, mais bête. 
sûrement pas ! Bonne chance. 


Comment me 
capturer ? 


Georges Goument 


Après chacun de vos 
déplacements, vous laissez une 
barrière sur place. Les barrières, 
je ne peux les franchir, tout 
comme vous d'ailleurs, alors 
attention ; ne vous piégez pas 
vous-même. 


Vous devrez me bloquer 
étroitement pour que j'explose de 
rage. 


De temps en temps, je suis un 
peu farceur et, pour vous 
narguer, je m'isole moi-même. Je 
peux me promener tranquil- 
lement, hors d'atteinte. Dans ce 
cas, vous perdrez également la 
partie. 


A vous de trouver la parade pour 


éviter qu'une telle situation se 
reproduise trop souvent. 


Je suis quand même un chouette 
monstre pour vous révéler un de 
mes trucs. Malheureusement 
(pour vous), il y en a d'autres. 


Vos déplacements s'effectuent à 
l'aide des touches 1 à 8. Le 
dessin situé sous le "terrain de 
jeu" vous indique les directions 
correspondantes. 


Si vous me laissez m'isoler et que 
ma capture ne soit plus possible, 
appuyez sur "A". 

Toutes les dix parties, le jeu 
s'arrête et affiche le résultat final. 


7 


Programme 
Ti 
icrok Hadl 


REM **%%% x 4x4 x 4 XX X XX 


REM * jui 
REM * TICROK * 
REM * Les 
REM kKKKkHKkAKXX RÉ Kk À X k 
REM * x 
REM * basic TI * 
REM * Lai 
REM KKkKKkKkKkAXK k X k k k k 
REM * # 
REM * copyright * 
REM * * 
REM *99 Magazine 
REM * 

REM * G. Goument * 
REM * # 
REM kKKkkkXk k k k k k k À ke 
PP=0 

P1=0 

pP2=0 

MY=1 

MP=1 

Z=0 

CALL CLEAR 
RANDOMIZE 

CALL SCREEN(8) 

FOR I=1 TO 13 

CALL COLOR(I,1,1) 
NEXT I 

FOR I=40 TO 48 
READ A$ 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


* 
* 


410 CALL CHAR(I,A$) 

420 NEXT I 

430 DATA 991818FFFF181 
899,00606018180606 
01,001818181818189 
9,000606181860608, 
800000FEFE00008 
DATA 8060601818060 
6,99181818181818,0 
106061818606,01000 
07F7F000001 
CALL CHAR(33,"1818 
103854102844") 
CALL CHAR(34,"3C7E 
DBDB7E18A542") 
CALL COLOR(1,13,1) 
CALL CHAR(58,"0") 
CALL CHAR(64,"FFFF 
FFFFFFFFFFFF") 
FOR I=72 TO 79 
READ A$ 
CALL CHAR(I,A$) 
NEXT I 
DATA 1818103854102 
844,03030922560910 
2,0010D021320C1723 
,020218162068D0C8, 
181810315rF,C4C8305 
088422 
DATA 10098AS5E20E0D 
8,C0C03C64A7 
CALL CHAR(80,"3C7E 
DBDB7E18A542") 
CALL CHAR(88,"0000 
O000AAFEAAAA") 


580 CALL CHAR(120,"900 
250008014400") 
PRINT TAB(12);"8:1 
s2M:TABU(12);r"s)*X+: 
M: TAB(12:) ; "704,3": 
TAB(12);:":/.-:":TA 
B'A2}:"6:524Ms 
CALL HCHAR(1,3,72) 
CALL HCHAR(1,30,80 


590 


) 
CALL 
21) 
CALL 
8) 
CALL 
8,8) 
CALL 
15) 
CALL 
15} 
FOR I=7 TO 25 

CALL VCHAR(2,1,64, 
15) . 

NEXT I 

FOR I=9 TO 11 

CALL COLOR(I,6,1) 
NEXT I 

V=0 

W=0 
V=INT((11-2+1) *RND 
) +2 
W=INT((20-12+1) *RN 
D) +12 

CALL HCHAR(V,W, 72) 
VA=V 


HCHAR(1,6,58, 
HCHAR(17,6,58 
HCHAR(17,19,5 
VCHAR(2,6,58, 


VCHAR(2,26,58 
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WA=W 

Y=0 

X=0 
Y=INT((11-2+1) *RND 
) +2 | 
X=INT((20-12+1) *RN 
D} +12 

CALL GCHAR(Y,X,A) 
IF A<>64 THEN 820 
YA=Y 

XA=X 

CALL HCHAR(Y,X, 80) 
CALL COLOR(5,15,15 
) 

CALL COLOR(6,14,15 


) 
COLOR(7,9,15) 
CALL COLOR(8,7,15) 
COLOR(12,5,15 

) 
CALL COLOR(2,16,13 
) 
CALL COLOR(3,16,13 
) 
CALL COLOR(4,16,13 
) 
PP=PP+1 
TJ=0 
N=0 

OB=0 

ND=0 

O=0 

DO=INT ((10-2+1)*R 
ND) +2 

O=0+1 

IF O=DO*2 THEN 10 
20 


OOowux 
WU NU HN 
OOQOO 


IF O<DO THEN 1150 
H=INT((9-3+1) *RND 
) +3 
B=INT((17-11+1)*R 
ND) +11 
G=INT((13-7+1) *RN 
D) +7 
D=INT((25-19+1)*R 
ND)+19 

XA=X 

YA=Y 

VA=V 

WA=W 

V=0 

W=0 

Y=0 

X=0 

CALL KEY(3,T,S) 
IF S=0 THEN 1230 
IF T<>49 THEN 130 
0 
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IF VA=2 THEN 1780 
V=VA-1 

W=WA 

GOTO 1720 

IF T<>50 THEN 136 
0 

IF VA=2 THEN 1780 
IF WA=25 THEN 178 
0 

V=VA-1 

W=WA+1 

GOTO 1720 

IF T<>51 THEN 

0 

IF WA=25 THEN 

0 

W=WA+1 

V=VA 

GOTO 1720 

IF T<>52 THEN 

0 

IF WA=25 THEN 

0 

IF VA=16 THEN 

0 

V=VA+1 

W=WA+1 

GOTO 1720 

IF T<>53 THEN 

0 

IF VA=16 THEN 

0 

V=VA+1 

W=WA 

GOTO 1720 

IF T<>54 THEN 158 
0 

IF VA=16 THEN 178 
0 

IF WA=7 THEN 1780 
V=VA+1 

W=WA-1 

GOTO 1720 

IF T<>55 THEN 163 
0 

IF WA=7 THEN 1780 
W=WA-1 

V=VA 

GOTO 1720 

IF T<>56 THEN 169 
0 

IF WA=7 THEN 1780 
IF VA=2 THEN 1780 
V=VA-1 

W=WA-1 

GOTO 1720 

IF T<>65 THEN 123 
0 

CALL HCHAR(VA, WA, 


GOTO 4410 
CAIL GCHAR(V,W,A) 


IF A<>64 THEN 178 
0 

CALL HCHAR(VA, WA, 
88) 

CALL SOUND(50,-7, 
0) 

CALL HCHAR(V,W, 72 


) 

GOTO 1940 

FOR I=1 TO 5 

IF A<>120 THEN 18 
40 

CALL COLOR(12,10, 
15) 

CALL SOUND(10,-3, 
5) 

CALL COLOR(12,5,1 
5) 

GOTO 1920 

IF A=88 THEN 1890 
CALL COLOR(7,13,1 
5) 

CALL SOUND(10,-1, 
10) 

CALL COLOR(7,9,15 
) 

GOTO 1920 

CALL COLOR(8,10,1 
5) 

CALL SOUND(10,-3, 
5) 

CALL COLOR(8,7,15 
) 

NEXT I 

GOTO 1230 

IF O<DO THEN 2130 
IF YA<=H THEN 198 
0 

IF YA>=B THEN 201 
0 

GOTO 2040 

IF XA<=G THEN 268 
0 

IF XA>=D THEN 259 
0 

GOTO 2410 

IF XA<=G THEN 286 
0 

IF XA>=D THEN 277 
0 

GOTO 2500 

IF XA<=G THEN 207 
0 

IF XA>=D THEN 210 
0 

GOTO 2130 

IF YA<=H THEN 268 
0 

IF YA>=B THEN 286 
0 

GOTO 2230 

IF YA<=H THEN 259 





# 


0 GOSUB 3210 X=XA+1 

IF YA>=B THEN 277 GOSUB 3130 GOTO 3650 

0 GOSUB 3300 IF YA=16 THEN 303 
GOTO 2320 GOSUB 3380 0 

IF V<=YA THEN 217 GOSUB 3040 IF XA=25 THEN 303 
0 GOSUB 2950 0 

IF W<=XA THEN 259 GOSUB 3470 CALL GCHAR(YA+1,X 
0 GOSUB 3550 A+1,U) 

IF W>XA THEN 2680 GOTO 4110 IF U<>120 THEN 32 
GOTO 2410 GOSUB 3550 70 

IF V=YA THEN 2210 GOSUB 3470 Z=1 

IF W<XA THEN 2770 GOSUB 2950 GOTO 3280 

IF W>=XA THEN 286 GOSUB 3380 IF U<>64 THEN 303 
0 GOSUB 3040 0 

GOTO 2500 GOSUB 3130 X=XA+1 

IF W<XA THEN 2320 GOSUB 3300 GOTO 3670 

IF W>XA THEN 2230 GOSUB 3210 IF YA=16 THEN 303 


60 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSUB 
GOSUB 


3130 
3040 
3210 
2950 
3300 
3550 


3380 
3470 


GOTO 4110 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


GOSUB 
GOSUB 
GOSUB 


3470 
3380 
3550 
3300 
2950 
3210 
3040 
3130 


GOTO 4110 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


3300 
3380 
3219 
3470 
3130 
3550 
3040 
2950 


GOTO 4110 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


2950 
3040 
3550 
3130 
3470 
3210 
3380 
3300 


GOTO 4110 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


3380 
3470 
3300 
3550 
3210 
2950 
3130 
3040 


GOTO 4110 


GOTO 4110 

GOSUB 3040 

GOSUB 2950 

GOSUB 3130 

GOSUB 3550 

GOSUB 3210 

GOSUB 3300 

GOSUB 3470 

GOSUB 3380 

GOTO 4110 

IF YA=2 THEN 3030 
CALL GCHAR(YA-1,X 
A,U) 

IF U<>120 THEN 30 
00 

Z=1 

GOTO 3010 

IF U<>64 THEN 303 
0 

Y=YA-1 

GOTO 3690 

RETURN 

IF YA=2 THEN 3030 
IF XA=25 THEN 303 
(0 

CALL GCHAR(YA-1,X 
A+1l,U) 

IF U<>120 THEN 31 
00 

Z=1 

GOTO 3110 

IF U<>64 THEN 303 
0 

X=XA+1 

GOTO 3630 

IF XA=25 THEN 303 
0 

CALL GCHAR(YA, XA+ 
1,U) 

IF U<>120 THEN 31 
80 

Z=1 

GOTO 3190 

IF U<>64 THEN 303 
0 


0 

CALL GCHAR(YA+1,X 
A,U) 

IF U<>120 THEN 33 
50 

Z=1 

GOTO 3360 

IF U<>64 THEN 303 


0 

Y=YAt+1 

GOTO 3690 

IF YA=16 THEN 303 
0 

IF XA=7 THEN 3030 
CALL GCHAR(YA+1,X 
A-1,U) 

IF U<>120 THEN 34 
40 

Z=1 

GOTO 3450 

IF U<>64 THEN 303 
0 

X=XA-1 

GOTO 3670 

IF XA=7 THEN 3030 
CALL GCHAR(YA, XA- 
1,U) 

IF U<>120 THEN 35 
20 

Z=1 

GOTO 3530 

IF U<>64 THEN 303 
0 

X=XA-1 

GOTO 3650 

IF YA=2 THEN 3030 
IF XA=7 THEN 3030 
CALL GCHAR(YA-1,X 
A-1,U) 

IF U<>120 THEN 36 
10 

Z=1 

GOTO 3620 

IF U<>64 THEN 303 
0 





:)!) MAGAZINE n°9 


X=XA-1 

Y=YA-1 

GOTO 3700 

Y=YA 

GOTO 3700 

Y=YAt+l 

GOTO 3700 

X=XA 

IF ND>0 THEN 3750 
IF P2>P1 THEN 374 
0 
ND=INT((25-15+1)* 
RND) +10 

GOTO 3750 
ND=INT((15-5+1)*R 
ND) +5 

TJ=TIJ+1 - 

IF TJ<ND THEN 397 
0 

TJ=0 

ND=0 

DM=0 

OB=INT ((6-1+1) *RN 
D) +1 

IF OB>2 THEN 3870 
IF P1>=P2 THEN 38 
50 

OB=8 

GOTO 3970 

OB=4 

GOTO 3970 

IF OB>4 THEN 3930 
IF P1>=P2 THEN 39 
10 

OB=9 

GOTO 3970 

OB=5 

GOTO 3970 

IF P1>=P2 THEN 39 
60 

OB=10 

GOTO 3970 

OB=6 

IF OB=0 THEN 4030 
CALL HCHAR(YA, XA, 
120) 

DP=DP+1 

IF DP<OB THEN 408 
0 

0B=0 

DP=0 

IF Z=0 THEN 4070 
CALL HCHAR(YA, XA, 
120) 

Z=0 

GOTO 4080 

CALL HCHAR(YA, XA, 


SOUND (50,-5, 


HCHAR(Y,X, 80 


GOTO 4230 

E=1 

P2=P2+1 

CALL HCHAR(YA,XA, 
32) 

FOR P=0 TO 30 STE 
P 3 

CALL SCREEN(E) 
CALL SOUND(50,-5, 
P) 

E=E+1 

NEXT P 

CALL SCREEN(8) 
MY=MY+2 

CALL HCHAR(MY,3,3 
4) 

GOTO 4780 

CALL GCHAR(V-1,W, 
U) 

IF U=64 THEN 1040 
CALL GCHAR(V-1,W+ 
1,U) 

IF U=64 THEN 1040 
CALL GCHAR(V,W+1, 
U) 

IF U=64 THEN 1040 
CALL GCHAR(V+1,W+ 
1,U) 

IF U=64 THEN 1040 
CALL GCHAR(V+1,W, 
U) 

IF U=64 THEN 1040 
CALL GCHAR(V+1,W- 
1,U) 

IF U=64 THEN 1040 
CALL GCHAR(V,W-1, 
U) 

IF U=64 THEN 1040 
CALL GCHAR(V-1,W- 
1,U) 

IF U=64 THEN 1040 
CALL HCHAR(V,W, 32 
) 

WA=W 

A=73 

VE18 

FOR P=1000 TO 400 
STEP -100 

CALL SCREEN(16) 
CALL COLOR(6,2,1) 
CALL SOUND(1,P,10 
) 

IF WA<=16 THEN 45 
20 

CALL HCHAR(V,20,A 
) 

VA=V 

CALL HCHAR(VA,20, 
32) 

GOTO 4550 

CALL HCHAR(V,10,A 
) 


VA=V 

CALL HCHAR(VA,10, 
32) 

=V+1 
A=A+1 
NEXT P 

IF WA>16 THEN 461 
0 

CALL HCHAR(24,10, 
76) 

GOTO 4630 

CALL HCHAR(24,20, 
79) 
VA=0 
V=0 
A=0 

CALL SCREEN(8) 
MP=MP +2 

CALL HCHAR(MP,30, 
33) 

P1=P1+1 

GOTO 4780 

FOR I=1 TO LEN (MS 
) 

CALL HCHAR(22,2+I 
ASC (SEGS (M$, I,1) 
)) 

CALL SOUND(1,-1,2 
0) 
NEXT I 
RETURN 
CALL HCHAR(22,3,3 
2:20) 
M$S=" " 
RETURN 

IF PP=10 THEN 490 
0 
M$="nouvelle part 
ie o n" 
GOSUB 4700 
CALL KEY(3,T,S) 
IF S=0 THEN 4810 
IF T<>78 THEN 485 
0 
GOTO 4900 

IF T<>79 THEN 481 
0 
GOSUB 4750 
CALL HCHAR(24,10, 
32) 
CALL HCHAR(24,20, 
32) 
GOTO 670 
CALL CLEAR 
PRINT "nombre de 
parties jouees ‘; 
PE 


pour vous 

PRINT :5:" 

DOUrF moi "“>Pl::: 
END 








Un nouveau module 





graphique pour le 
T1-99// 


Henri Mathian 





n nouveau module 

conçu et fabriqué par 

MECHATRONIC, de 

Sindelfingen en 
Allemagne, est disponible en 
France depuis début juin. Son 
nom : "Le Basic Graphique 
Etendu Apesoft". Ses capacités : 
"Super !". Il apporte une nouvelle 
jeunesse à notre bon vieux 
TEXAS avec la quasi- totalité des 
commandes graphiques 
disponibles sur le micro-pomme. 
De plus il est accompagné d'un 
manuel en français. Tout pour 
plaire ce petit module... même 
son prix (1200,00 F à la Règle à 
Calcul !). 


Cet article n'a pour but que de 
donner un rapide aperçu des 
possibilités de ce module qui 
possède 44 Ko de mémoire 
préprogrammée. 


Le principe est très simple : le 
déplacement d'un curseur 
graphique génère le tracé d'une 
ligne. L'écran sert de feuille de 
travail. A l'initialisation du "mode 
graphique" une fenêtre est définie 
à l'intérieur de laquelle le curseur 
partant d'un point donné va, 
selon les instructions reçues, 
tracer la courbe demandée avec 
une grande rapidité. 


L'adressage de chaque point de la 
fenêtre graphique devient 


possible, et cela en 16 couleurs, 
pour le premier et l'arrière plan. 
40 instructions graphiques sont 
disponibles et peuvent être 
appelées sous le TI-Basic ou le 
TI-Basic Etendu. La composition 


de programmes facilement 
agrémentée de graphiques haute 
résolution devient possible. 
Contrairement à ce que dit la 
brochure en page 42, les 
sous-programmes CALL 
SOUND et CALL SPRITE 
peuvent être utilisés même en 
mode graphique. Ainsi il est 
possible d'ouvrir une fenêtre, de 
créer un graphique, de le 
dupliquer éventuellement sur une 
autre partie de l'écran ou de le 
faire se déplacer, de définir un ou 
plusieurs lutins, de les appeler, 
de les déplacer sur fond musical 
sans altérer le graphisme 
préalablement composé. 


Ce module comporte aussi une 
instruction très pratique "CALL 
BHCOPY" qui permet de réaliser 
une copie d'écran en mode 
Bit-Map sur imprimantes à 
aiguilles de types GP 550, 
EPSON FX-80, RX-80 et 
compatibles. Avec toutefois une 
petite restriction : Les SPRITES 
ne sont pas imprimés. 


L'utilisation de ce module 
nécessite obligatoirement la 
présence de l'extension 32 Ko. 


"C'est extraordinaire de voir 
fonctionner le XG Basic Apesoft" 
dit la brochure."Ce n'est pas 
faux!" répond l'utilisateur. 


Mode de 
fonctionnement 


Le déplacement d'un curseur 
génère le tracé d'une ligne à 








l'intérieur d'une fenêtre 
graphique qui comporte 128 
colonnes (16 caractères * 8 
points) et 120 lignes (15 
caractères * 8 points) soit 15 360 
points. 


Cette fenêtre peut être affichée 
seule en un endroit quelconque de 
l'écran, en partie ou totalement en 
dehors de l'écran, elle peut être 
reproduite une ou plusieurs fois 
sur la totalité de l'écran en 
juxtaposition, superposition 
partielle, être déplacée à la 
manière d'un escargot (boucle 
FOR-NEXT avec effacement de 
la fenêtre précédente), être 
découpée ou être réduite 
(affichage d'une portion de la 
fenêtre). 


La figure exécutée dans la fenêtre 
graphique est unique. On ne peut 

ouvrir deux fenêtres à l'écran et y 
tracer des figures différentes. Le 
nouveau tracé destiné à la fenêtre 
3 ira simultanément s'inscrire en 
superposition dans les 3 fenêtres 
ouvertes. C'est dommage ! A 
nous de trouver le truc ! 


La limitation à 15 360 points est 
nécessaire afin de réserver 
suffisamment de place dans la 
VDP-RAM pour les programmes 
Basic, les variables alpha- 
numériques, etc. 


L'adressage direct de la totalité de 
l'écran soit 256 colonnes (32 
caractères * 8 points) et 196 
lignes(24 caractères * 8 points), 
ce qui représente 50 176 points, 
demande 12 Ko de la 
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VDP-RAM ; les tableaux de 
caractères et de couleurs 
débordent sur les tables 
d'adresses de l'interpréteur 
Basic. Si l'adressage individuel 
de ces 50 176 points est possible, 
la fenêtre ouverte à l'écran pour 
créer le graphique ne peut 
malheureusement dépasser 
15 360 points dans la version 
actuelle du logiciel. 


Quelques instructions 
graphiques 


CALL APESOFT : 


Le sous-programme APESOFT 
ferme tous les fichiers encore 
ouverts, transfère les routines 
graphiques depuis le module vers 
l'extension mémoire 32 Ko, 
réserve la place nécessaire pour le 
graphique dans la VDP-RAM 
puis éxécute une instruction 
NEW de façon à effacer tous les 
programmes se trouvant en 
mémoire. 


Les routines graphiques sont 
constituées d'instructions très 
puissantes qui simplifient 
énormément la réalisation de 
dessins complexes. 


CALL LINK("GRAFIC", 
MODUS) 

Annonce au calculateur le mode 
graphique et initialise tous les 
registres. 


CALL LINK("WINDOW", 
Colonne, Ligne) 


Positionne la fenêtre graphique à 


CALL LINK("WINDOW",Z,S, 
ZA,SA,DZ,DS) 


Positionne une ou plusieurs 
portions de la fenêtre. 


CALL LINK("SETBLE", 
Nombre de colonnes) 


Permet d'obtenir une fenêtre à 
dimensions variables (la surface 
maximale restant toujours, dans 
l'état actuel de mes 
connaissances, de 15 360 pts). 


CALL LINK("SETCOL", 
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Couleur Premier Plan, Couleur 
Arrière Plan) 

Chacune des 16 couleurs du 
Basic TI peut être utilisée soit 
dans le premier plan, soit dans 
l'arrière plan. On peut utiliser 
simultanément dans un graphique 
plusieurs couleurs au premier et à 
l'arrière plans. 


CALL LINK("INVERT",X,Y, 
DX,DY) 


Intervertit les couleurs du premier 
et de l'arrière plans. 


CALL LINK("CLSCRN") 


Equivalent à CALL CLEAR, 
efface le graphique, les 
paramètres internes du curseur 
restant inchangés. 


CALL LINK("CENTRE",X,Ÿ) 


Définit le système de 
coordonnées utilisateur. 


CALL LINK ("MOVE", 
Distance) 


Permet de tracer une ligne de 
longueur "Distance" à partir de la 
position actuelle X,Y du curseur. 
CALL LINK("MOVETO",X,Y) 


Trace une ligne depuis la position 
actuelle du curseur jusqu'au point 
défini par les coordonnées X et 
Y. 


CALL LINK("TURN",PHI) 


Ajoute la valeur PHI exprimée en 
degrés à l'angle courant du 
curseur. 


CALL LINK("RECT",A,B) 
Trace un rectangle. 

CALL LINK("CIRCLE",X,Y, 
R) 

Trace un cerle de centre(X,Y) de 
rayon RK. 

CALL LINK("ARCUS",X,Y,R, 
PHI,DPHI) 

Trace un arc circulaire. 

CALL LINK("ELLIPS",X,Y, 
A,B) 


Trace une ellipse centrée en X,Y 
de demi-grand axe A, de demi- 


petit axe B. 


CALL LINK("VALUES",X,Y, 
PHI,FG,BG) 


Affecte aux variables désignées 
les valeurs actuelles des 
paramètres.Coordonnées curseur 
(X,Y). Angle curseur (PHI). 
Couleur premier plan (FG). 
Couleur de l'arrière plan. 


CALL LINK("HSTDIA",X,Y, 
WIDTH,HEIGHT,DEPTH) 


Trace une barre de diagramme. 


Composition 
graphique 
CALL LINK("WRITE",Z,S, 


STRING) 


Permet le mélange de graphique 
et de texte. 


CALL LINK("DSPLAY"”,Z,S, 
SIZE,VAR$) 


Correspond à "DISPLAY AT". 


CALL LINK("ACCEPT",Z,S, 
SIZE, VARS$) 


Correspond à "ACCEPT AT" 


Sauvegarde 


CALL GSAVE("DATEINAME") 


Les dessins ne peuvent être 
stockés que sur floppy disques. 


CALL GLOAD("DATEINAME") 


Cette instruction charge dans le 
VDP-RAM le dessin enregistré 
sur la disquette. L'appel de 
GLOAD sans avoir, au préalable, 
appelé "GRAFIC", entraine un 
message d'erreur. 


Quelques instructions 
non graphiques 


qui 
l'ensemble des commandes et 
instructions du TI Extended Basic 
que possède également ce 
module : 


viennent s'ajouter à 


CALL BHCOPY("FILENAME", 
"ESC-SEQUENZ") 


Réalise une copie d'écran. ex.: 
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CALL BHCOPY(PI0"."R") 
produit une copie "parallèle" sur 
une BMC. 


CALL VPEEK 


Lecture des positions de mémoire 
dans la VDP-RAM. 


CALL VPOKE 


Ecriture directe dans les positions 
de la VDP-RAM. 


CALL GPEEK 


Retourne les caractères contenus 
dans les valeurs ASCII 32 à 126 
à leurs définition de base. Très 
proche de CALL CHARSET. 


CALL WAIT 

Attente de O à 16 382 (1000 
correspond à 20 secondes). 
CALL MOVE 

Déplace le contenu de blocs de 
mémoire dans l'ordinateur. 
CALL MSAVE 


Enregistrement sur cassette de 
programmes en langage machine. 


Le module ''MAXIMEM 48K0"' 


CALL MLOAD 

Charge le contenu de la mémoire 
vive, sauvegardé par MSAVE. 
CALL BYE 

Peut être utilisé en cours de 
programme. 

CALL NEW 

Peut être utilisé à l'intérieur d'un 
programme. 

CALL RESTORE (A) 

Instruction RESTORE compor- 
tant une variable. 

CALL QUIT OF 

Met la touche QUIT hors 
fonction. 

CALL QUIT ON 

Rétablit la fonction. 


CALL SPRON 


Mise en mouvement de tous les 
sprites au même moment. 


CALL SPROF 


pour TI-99///\ et TI-99/4 


Ce nouveau module, qui nous a 
été présenté sous la forme d'un 
prototype, offre de nombreuse 
possibilités : 
il double la capacité mémoire 
du TI 99-4 ou 4/A ; 
Maximem se connecte à 
l'endroit réservé aux modules ; 
il ne nécessite aucune alimen- 
tation extérieure ; 
il permet de charger et exécuter 
automatiquement tout module 
mis préalablement sur disque ; 
Maximem peut rester indéfini- 
ment en place, ce qui évite 
l'usure du port d'entrée de la 
console ; 
Maximem met à votre 
disposition plusieurs choix de 
modules après la mire de 
couleurs, par exemple : 
Editeur/Assembleur, Basic 
Etendu, Zero Zap, Basic TI. 


Utilisation 


Maximem est simple à utiliser : 
après la mire de couleurs, trois 
choix s'offrent à l'utilisateur : 


1) TI Basic (rien n'est changé 
pour le moment) ; 

2) MAXIMEM (qui charge le 
module de votre choix et 
lance son exécution) ; 

3)  Editeur/assembleur (une ver- 
sion améliorée du module 
Editor/assembler). 


Caractéristiques 
techniques 


Capacité 48Ko répartis comme 
suit (toutes les adresses en 
hexadécimal) : 
+ 6000 à 7FFF RAM 1 (8Ko) 
+ 6000 à 7FFF RAM 2 (8Ko) 
(les RAM 1 et RAM 2 sont 
commutables par “flag” ) 
6000 à 77FF  GRAM (6Ko) 


Arrête le mouvement de tous les 
sprites. 


CALL SCREENON 
Allume l'écran. 


CALL SCREENOF 
Eteint l'écran. 


CALL FIND("Cherchestring"," 
Stringarry"(),Variableretour) 


Dans un alignement de Strings 
d'une seule dimension, le 
sous-programme FIND cherche 
la notion définie dans 
"Cherchestrings". La variable 
retour numérique prend la valeur 
de la notion recherchée dans 
l'alignement. 


Cette liste d'instructions 
graphiques ou non graphiques 
n'est pas exhaustive. Elle donne 
une idée des possibilités 
surprenantes de ce petit module 
qui donne vraiment envie de 
continuer, ou de se remettre, à 
tapoter les touches de ce cher 
vieux TEXAS. 


8000 à 97FF GRAM (6Ko) 
A000 à B7FF  GRAM (6Ko) 
CO000 à D7FF  GRAM (6Ko) 
E000 à FFFF GRAM (8Ko) 


Equipement requis 


L'utilisation de ce module 
requiert un lecteur de disquette 
avec son contrôleur et une 
extension de mémoire 32Ko. 


A l'avenir, une version cassette 
de MAXIMEM permettra l'usage 
seul du magnétophone à cassettes 
pour les modules ne nécessitant 
pas l'extension mémoire. 

Nous ne savons pas encore quel 
sera le prix de ce très intéressant 
module, ni par qui il sera 
distribué. Si vous désirez obtenir 
des précisions, vous pouvez 
contacter le fabriquant : 


Gournay Guy 
933, Delorimier 
Longueuil 

J4K 3MS8 

PQ Canada 
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Je viens d'acheter Jla 
Mini-mémoire et j'ai réussi à 
subtiliser le livre “Initiation au 
langage assembleur du 
T1-99/4A", de Denise Amrouche 
et Roger Didi pour l'étudier et 
voilà mon problème : je suis au 
chapitre S, étude de la VDP 
RAM. 


Il est dit (page 38), à propos des 
lutins, que la table des 
descriptions de leur forme s'étend 
de >0400 à >07FF ; soit 1024 
octets. Il y a possibilité de définir 
128 lutins. On nous dit aussi 
(page 39), à propos des vitesses, 
que la table s'étend de >0780 à 
>07FF. Cette table des vitesses 
empiète donc sur les 1024 octets 
réservés à la définition des 128 
lutins. Pourquoi ? Si ces adresses 
sont justes, cela veut dire que je 
ne peux définir que 112 lutins : 
>0400 à >077F (page 40). 


Il y a aussi un autre problème : il 
est possible de définir 256 
caractères, moins les trente deux 
premiers : >0800 à >0FFF. Nous 
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Courrier des Lecteurs 
Alexandre Duback 


pouvons facilement trouver leur 
code ASCII. Quand je définis un 
lutin, je lui donne'un code ASCII 
allant généralement de 128 à 256 
(Si il y en a 128 définissables)Je 
peut aussi définir des caractères 
allant de 128 à 256. Quand je 
demande l'apparition d'un cube à 
l'écran, de code ASCII 128, que 
celui-ci est un lutin défini dans la 
table des lutins et aussi défini 
dans la‘table des caractères, est-ce 
la forme du lutin ou celle du 
caractère qui va apparaître sur 
l'écran, ayant tous deux le même 
code ASCII ? 


Frédéric Rejol - 42100 St Etienne 


Avec la Mini-mémoire et le Basic 
TI, les différentes tables utilisées 
pour l'affichage des caractères et 
lutins se superposent, ceci afin de 
laisser de la place pour le 
programme Basic qui est, lui 
aussi, loger dans la mémoire 
vidéo (seule zone de mémoire 
vive disponible sans extension 
32K0, si l'on ne tient pas compte 
des 256 octets du TMS 9900). Le 





Table des descripteurs 
des lutins 


Table d'écran 


Table des mouvements 
des lutins 


uments des lutins 





Table arg 
Table des couleurs 


















schéma ci-joint visualise la 
mémoire et explique que les 
possibilités se trouvent réduites 
par cette configuration par défaut. 




























Ernie de mémoire 
 pidéo confi gurée 





en assembleur 












- . Table d'écran 



















Table des Couleurs 


Mémoire libre 






























‘Table des 
. descripteurs des 
lutins 
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Fort heureusement, en assem- 
bleur - puisque c'est ce qui 
semble vous préoccuper - il est 
parfaitement possible de 
partitionner la mémoire dans le 
but d'obtenir des tables 
complètes. Le second schéma 
proposé montre une configuration 
possible parmi d'autres. Puisque 
ceci n'est peut-être pas évident, 
quelques rappels et explications 
s'imposent. 


L'adresse de base de la majorité 
des tables n'est pas figée 
puisqu'elle est fonction de l'état 
de l'un des registres du 
processeur vidéo. Ainsi, le 
contenu du registre 2 fixe 
l'adresse de base de la table 
d'écran, le registre 3 fixe 
l'adresse de base de la table des 
couleurs, etc... Seule la table 
utilisée pour les mouvements des 
lutins doit impérativement se 
trouver en >780 (1920). 


Pour fixer l'adresse de base de la 


table d'écran, il faut placer dans 
le registre 2 une valeur 
correspondante à l'adresse voulue 
divisée par >400 (1024). Dans 
notre exemple, l'adresse de base 
de la table d'écran est >0000, on 
place donc dans le registre 2 : 
>0000/>400, soit 0. 


Pour la table des couleurs, même 
méthode mais il faut cette fois 
utiliser le registre 3, et diviser 
l'adresse de base désirée par >40 
(64). Pour que l'adresse de base 
de la table des couleurs soit en 
>380 (896), il faut placer la 
valeur >E (14). 

Le registre 4 est employé pour la 
table des descripteurs des 
caractères. La valeur à placer 
dans le registre doit correspondre 
à l'adresse de base voulue, 
divisée par >800 (2048). Dans le 
cas qui nous intéresse,et où nous 
avons situé la table en >800, le 
registre vidéo concerné doit 
contenir >800/>800, soit 1. 


Pour la table des argument des 


lutins (couleurs, positions,etc...) 
on utilise le registre 5, dans 
lequel on place l'adresse de base 
de la table, divisée par >80 (128). 
Dans le cas où l'adresse de base 
doit être >300 (768), on place 6 
dans le registre 5. 


Le registre 6 définie l'adresse de 
base de la table des descripteurs 
des lutins (formes). la valeur à 
indiquer correspond à l'adresse 
de base divisée par >800 (2048). 
Pour une adresse de base en 
>1000 (4096), il faut placer dans 
le registre 6 la valeur 2 (2 * 2048 
= 4096). 


Cette méthode permet d'obtenir 
256 caractères utilisables, avec 32 
groupes de 8 caractères pour les 
couleurs, et 32 lutins avec 256 
définitions différentes au même 
moment (ou 64 dans le cas de 
lutins en 16*16 pixels). 


Petites annonces 
(gratuites) 


Writer Word Processor : 800 FF. 
TI LOGO II : 800 FF. 


Jean-Pierre IVES - 5, rue de 
l'Argile - 34160 Castries - Tél. : 
(67) 70.07.74. 


Ventes 


A vendre : TI-99/4A bon état 
(4.83), Basic étendu, câble 
cassettes, Mini-mémoire, joys- 
ticks et huit modules de jeux 
(Parsec, Star Trek, Burger 
Time...) plus nombreux jeux sur 
cassettes et livres. Le tout : 
3500 FF. 


Gilles Bompard - 12, place 
Béranger - 77170 Servon - Tél. : 
405.11.66. 


Vends TI-99/4A, Basic étendu, 
Mini-mémoire, Echecs, livres et 
cassettes. Très bon état. Prix à 
débattre. 


Roger Feyssaguet - Chizé - 
79170 Brioux sur Boutonne - 
Tél. : 16 (49) 76.70.76 après 
19H. 


Vend, cause double emploi, 
boîtier d'extension péripheriques 
avec câble et carte de commande : 
700 FF ; extension mémoire 
32Ko extérieure sous garantie : 
1000 FF. Le lot : 1500 FF. 


M. Lepercque - Tél. : (1) 
563.12.12 poste 3748 (heures 
bureau). 


Vends boîtier d'extension avec 
contrôleur et lecteur de 
disquettes, carte mémoire 32Ko 
et carte RS232 : 7000 FF. 
Editeur/assembleur : 500 FF. TI 


Vends synthétiseur de paroles : 
400 FF. 


J-F. de Belleval - La Borne 
Trouée - 60153 Rethondes - 
Tél. : (4) 485.62.26 après 18H. 


Vends TI-99/4A, câble magnéto, 
joysticks, Basic étendu, Parsec, 
TI Invaders, Lunar Jumper, Car 
Wars, Gestion de fichiers, livres, 
"99 Magazine" 1 à 7, plus de 
nombreux programmes. Valeur : 
plus de 3500 FF ; vendu 
2500 FF. 





C)C) MAGAZINE n°9 


Olivier Serreault - Plan de Leydet 
- 04200 Sisteron. 


Vends nombreuses cassettes en 
Basic TI et Basic étendu ("99 
Magazine" et "Hebdogiciel") pas 
cher et en bon état. 

Pierre-E. Gougelet - 28, rue 
Guillaumet - 51400 Livry- 
Louvercy. 


Vends TI-99/4A Péritel, Basic 
étendu Français, TI LOGO II, 
mémoire 32Ko externe, interface 
parallèle externe, magnéto TI, 
deux câbles cassettes, numéros 1 
à 8 de "99 Magazine” avec 
cassettes d'accompagnement, 
modules Echecs, Gestion privée, 
Gestion de fichiers, manettes de 
jeux TI, cassette "Basic par 
soi-même", livres ("Boîte à 
outils", "A l'affiche", "102 
programmes", "Jeux, trucs et 
comptes"). 


Serge Nardizzi - résidence Les 
Jardins de l'Aude - Batiment E - 
11000 Carcassonne - Tél. : (68) 
47.59.82 après 20H30. 


Vends boîtier d'extension, carte 
mémoire 32Ko, carte RS232 
(sorties série et parallèle), 
contrôleur et lecteur de 
disquettes, imprimante Star 
Gemini 10 (120 cps, avec 
cordon), synthétiseur vocal, 
modules Basic étendu, TI-Writer, 
TI LOGO 2, Gestion de fichiers, 
Gestion privée et TI Calc. 


Michel Viaene - Longueville sue 
Aube - 10170 Méry sur Seine - 
Fel.:(25)21.23.32. 


Vends modules Tombstone, 
Video Games I, Wumpus, Star 
Trek, Mash, Car Wars, Chilshom 
Trail, A maze ing : 100 FF 
chacun. Cassettes Rétro I et II, 
Lunar Lander, Lunar Jumper, 
Solar System : 50 FF chaque. 


J. Reibel - 9, square V. Fleming - 
92350 Le Plessis Robinson - 
Tél. : 16 (1) 631.46.11. 


Vends modules Basic étendu, 
Hunt the Wumpus, et les 
cassettes Lunar Jumper, Treasure 
Trap et Pilot. Tous avec manuels, 
vente ensemble ou séparément. 


M. Heudes - 17, rue de 


? ‘) MAGAZINE n°9 


Léningrad - 75008 Paris - Tél. : 
522.78.48. 


Vends modules TI Invaders, 
Football, Blasto, Munch Man : 
120 FF pièce ; Pole Position, 
Parsec : 160 FF pièce. Vends "99 
Magazine” numéros 1 à 8 : 20 FF 
le numéro. Le tout est en très bon 
état. 


T. Martel - 12, rue Bonne Santé - 
76620 Le Havre - Tél. : (35) 
45.30.58. 


Vends TI-99/4A, poignées de 
jeux, câble cassettes, deux livres, 
TI Invaders, Hustle, Star Trek, 
Music .Maker, huit cassettes "99 
Magazine”. Valeur 2800 FF ; 
vendu 1400 FF. 


P. Petitjean - 7, rue d'Alembert - 
18000 Bourges - Tél. : (48) 
65.62.54. 


Vends TI-99/4A avec Basic 
étendu en Français, cassette 
"Basic par soi-même", autres 
cassettes et livres de 
programmes : 2000 FF. 


J-M. Lesage - Pré Bercy III - 
03000 Moulins - Tél. : (70) 
20.13.84. 


Achats 


Achète disquette "TI Writer”. 


G. Crittin - 14 bis, chemin du 
Bochet - 1196 Gland (Suisse) - 
Tél. : 19.41.22.64.38.50. 


Achète contrôleur de disquettes 
seul 1500 FF ou avec lecteur de 
disquettes simple face 3500 FF (à 
débattre). Faire offre à : 


Pascal Thomas - Paris - Tél. : (1) 
203.71.10. 


Achète modules TI Calc, 
Multiplan, Stat, Echecs, Maths 
(Collins), etc. Interface parallèle 
ou série pour imprimante et 
console, même en panne. 


M. Voisin - 22, route de 
Vewerque - Grépia - Tél. : (61) 
08.21.88. 


Achète module Mini-mémoire 
complet (manuel d'utilisation). 


Jean-Louis Philippe - 73, route 


de Sierck - Koenigsmaker - 
57110 Yutz - Tél. : 16 (8) 
250.01.46. 


Cherche mode d'emploi de la 
Mini-mémoire, Modules TI 
Writer, Statistiques, Physical 
Fitness, Numération I & II, 
Magie des nombres, disquette 
Dictée magique, plans et schémas 
de l'interface RS232C (offre 
possibilité réalisations) et/ou 
extension mémoire 32Ko. 


Philippe Mechelaere - 6, rue des 
Saints Sauveurs - 92260 
Fontenay aux Roses - Tél. : 16 
(1) 350.88.18 après 20H (ou 
laisser message). 


Achète module "Speech Editor" 
(200 à 300 FF). Faire offre à : 


M. Couegnat - 66, rue du Repas - 
69007 Lyon - Tél. : 16 (1) 
858.21.16. 


Cherche carte interface RS232C 
pour boîtier d'extension, module 
TI Calc, modules et disquettes 
Multiplan et TI Writer, console 
TI-99/4A et accessoires hors 
service pour bricolages. 


Henri Espi - résidence Le 
Poséïdon - 66750 Saint Cyprien 
Plage - Tél. : (68) 21.22.12 après 
19H. 


Recherche Modules "Speech 
Editor" et "LOGO 2". Carte 
mémoire 32Ko, lecteur et 
contrôleur de disquettes internes. 
Etudie toutes propositions. 


Guy Mahé - 23, allée H. Sellier - 
AD 1156 - 92800 Puteaux. 


Divers 


Echange manuel "Editor/ 
Assembler”. Faire offre à : 


Gilbert Vigliano - Lot "La Plage” 
- Batiment À - avenue Jean 
d'Agrèves - 83400 Hyères - 
Tél. : (94) 57.20.74. 


Recherche schémas complets de 
l'interface RS232 du TI-99, ainsi 
que son mode d'emploi. 


Jean-Jacques Graff - 23, rue du 
Ballon d'Alsace - 68740 
Fessenheim - Tél. (89) 
48.61.37. 
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Plus besoin du boîtier d'extension périphérique TEXAS 


Connectez directement sur votre T1/994A un contrôleur de dis- 
quettes pouvant recevoir 2 lecteurs de disquettes D.D./DF. 
5"1/4 360 ko. Permet la lecture de toutes les diquettes des 
programmes Texas existants. 

L'ensemble comprenant le contrôleur et une unité de dis- 
quettes 4.500 F !_ L'unité de disquette supplémentaire 360 Ko 


2.500 F : (garantie { an pièces et main-d'œuvre) see # 
RS 232 


Coffret pouvant contenir 2 unités de disquettes 
ou parallele 


Lime 


Contrôleur de disquettes Memoire 32 k 


Unité centrale TI 99/4A Module Logo 2 








MODULE SUPERGRAPH 


MINI-MEMOIRE Un nouveau basic etendu avec 35 fonctions supplementaires 


Ce module ne se contente pas de vous offrir 4 Ko de memoire RAM 
(alimentée par pile) permettant la sauvegarde des programmes 
et donnees lorsque vous eteignez l'ordinateur... 

Il a aussi : 

e 4Ko de memoire morte (ROM) et 6 Ko de memoire morte graphi- 
que (G - ROM) contenant des utilitaires tres interessants : 

— acces possible a l'extension 32 K en T1 basic ; 

— chargement de programmes-objets écrits en assembleur, soit 
sur mini-memoire, soit sur extension 32 K ; 

— utilisation de PEEK et POKE, appel de sous-programmes habi- 
tuellement non accessibles ; 

— programme de recherche d'erreurs (Easy Bug - Debug). 
Le modele avec manuel + manuel assembleur sur mini- 
memoire 895 F 


permettant de tracer lignes, cercles, ellipses, axes, diagram- 
mes en barres ou circulaires. Ce basic graphique presente 2 ca- 
racteristiques tres utiles: une copie d'ecran, graphiques et 
textes (codes ASCII, Vpoke et Vpeek acces direct a la Ram de 
controle ecran 4200F 








BASIC ÉTENDU 


Module comprenant un langage de programmation renforçant le 
Basic du 11 99. 40 commandes supplémentaires, acces au langa- 
ge assembleur. (Entrées/sorties). Sous-programmes, stockage, spri- 
tes, traitement d'erreurs. Expressions logiques. LET multiple. Intro- 
ductions multiples. Acces à l'extension 32 K. 800 F 














MEMOIRE 32 K 

Fonctionne avec le basic etendu. 

Elle est indispensable pour la programmation en logo. Si l'on pos- 
sede la mini-mémoire ou l'assembleur, elle permet d'adresser des 
sous-programmes en assembleur et de les executer. 

Le module 








LOGO 2 (module) 


Enseignez a votre ordinateur : formes, couleurs, musique, procedu- 
res, caracteres dessines, variables de tous genres, constructions 
grammaticales et arithmetiques.. 

le module logo 





LOT N° 1 INDISPENSABLE 

e Module BASIC ETENDU manuel en français 
K7 Basic par soi-même 
K7 Lunar Lander 2 
K7 Introduction aux jeux sur TI 99 n° 1 








LOT N° X 
Module supergraph + Mémoire 
32 K externe 

















BON DE COMMA 


Prenom 
Adresse 


Code Postal 
Ville 


LOT N° Z TOUT LE LOGO 


Module logo + memoire 32 K 
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Ces prix sont indicatifs et peuvent être modifies sans preavis. Produits disponibles 
dans la limite de nos stocks en magasin. Participation aux frais de port et d'expedi- 
tion en recommande express pour les logiciels : + 30 F. Se renseigner pour les colis 
au-dessus de 5 kg ainsi que pour les expeditions a l'etranger 

LA REGLE À CALCUL : 65/67, bd Saint-Germain, 75005 PARIS 

Tel. : 325.68.88 - Telex : ETRAV 220064 F / 1303 RAC. 

Livraison des produits disponibles sous 8 jours. Parking gratuit Maubert-Lagrange 





